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INTRODUCTION 


The  TACWAR  theater-level  combat  simulation  model  was  developed  by 
the  Institute  for  Defense  Analysis  (IDA)  for  the  Department  of  Defense 
Studies  Analysis  and  Gaming  Agency  (DoD-SAGA).  Presently,  TACWAR  is 
being  maintained  for  SAGA  by  the  Defense  Communications  Agency  Command 
and  Control  Technical  Center  (DCA-CCTC) • 

Since  TACWAR  does  allow  theater-level  combat  assessments,  it  is 
being  considered  as  a  prime  candidate  to  provide  results  to  the  "net 
assessment"  task  of  the  Army-sponsored  Theater  Nuclear  Forces  Surviva¬ 
bility  (TNF/S)  program*  A  broad-scoped  program,  TNF/S  encompasses  a 
number  of  major  task  (and  subtask)  areas  including  target  acquisition; 
nuclear-chemical-conventional  kill;  logistics;  combat  degradation; 
unconventional  warfare;  electronic  warfare;  and  command,  control,  and 
communications  degradation  (C3/D). 

Each  of  these  major  areas  of  analysis  is  controlled  by  a  designated 
"lead  element"  who  is  responsible  for  coordinating  and  assessing  that 
portion  of  the  overall  program*  The  author  is  a  member  of  a  team  of  the 
Electronics  Research  and  Development  Command;  Harry  Diamond  Laboratories 
( ERADCOM-HDL )  that  is  assisting  the  Combined  Arms  Combat  Development 
Activity  ( CACDA) ,  the  designated  lead  element  for  C3/D. 

A  thorough  analysis  of  TACWAR  revealed  that  very  little  C3  is 
modeled  explicitly*  Consequently,  it  was  decided  that  those  areas 
within  TACWAR  that  are  of  major  interest  and  importance  to  TNF/S-C3/D 
will  be  modified  to  include  C3/D  effects-  This  report  describes  those 
modification  efforts,  including  the  rationale  for  the  modifications,  the 
methodology  employed,  and  the  explicit  FORTRAN  code  changes  that  have 
been  implemented*  Initial  data  values  and  the  results  of  some  sample 
runs  also  are  provided. 


2.  SUMMARY  OF  TACWAR 

In  its  broadest  categories  of  simulation,  TACWAR  can  be  divided  into 
five  major  areas  of  combat  or  control 

Air  combat 
Nuclear  combat 
Chemical  combat 

Ground  (with  air-ground  interaction)  combat 
Theater  control 


^Institute  for  Defense  Analysis  Tactical  Warfare  (TACWAR)  Model, 
Defense  Communications  Agency  CCTC  Computer  System  Manual  CSM  MM  237-77, 
Parts  I,  II,  III  (6  September  1977). 


5 


Each  of  these  areas  was  analyzed  to  determine  if  C3/D  effects  could  be 
readily  incorporated  into  the  simulation.  The  analysis  is  summarized  in 
the  following  paragraphs. 

2.1  Air  Combat  Simulation 


In  TACWAR,  aircraft,  aircraft  shelters,  and  personnel  are 
stationed  at  specific  airbases.  These  airbase  assets  are  consolidated 
within  specified  geographical  "regions"  of  the  theater  to  establish  a 
"notional"  or  average  airbase.  For  each  of  these  notional  airbases, 
aircraft  are  allocated  to  specific  missions,  including  close  air  support 
(CAS),  interdiction,  and  airbase  attack.  The  number  of  aircraft 
available  for  these  missions  is  a  function  of  the  operating  capability 
of  the  actual  airbases  and  will  depend  on  C3/D. 

As  a  first  order  effect,  the  dependence  of '  airbase  operating 
capability  on  C3/D  can  be  accounted  for  by  the  degradation  function 
currently  available  in  TACWAR.  Other  C3/D  effects  in  the  air  model  such 
as  air-to-air  coordination  and  CAS  communications  are  secondary  TNF/S 
considerations.  Consequently,  no  changes  in  the  air  combat  model  are 
made  to  include  C3/D  explicitly. 

2.2  Nuclear  Combat  Model 


The  nuclear  model  in  TACWAR  includes  an  escalation  process,  a 
prioritized  weapons  assignment  list,  target  acquisition,  a  prioritized 
target  assignment  list,  a  weapon- to- target  selection  process,  and  a 
target  damage  evaluation  process.  Important  C3/D  effects  in  this  model 
include  (  1  )  delays  in  nuclear  escalation  and  in  target  acquisition 
processing  due  to  degraded  C3  and  (2)  lower  effectiveness  of  nuclear 
delivery  means.  Delays  in  nuclear  escalation  and  in  target  acquisition 
can  be  incorporated  into  TACWAR  by  providing  an  explicit  functional 
dependence  of  the  delay  time  with  degradation  of  C3  assets  within  the 
several  areas  (echelons)  of  control  such  as  division,  corps- sector ,  and 
theater  delivery  systems.  Similarly,  nuclear  delivery  system 

effectiveness  (availability)  can  be  described  as  a  function  of  C3/D. 

2.3  Chemical  Combat  Model 


The  chemical  model  in  TACWAR  has  essentially  a  one-to-one 
correspondence  with  the  nuclear  model.  Consequently,  those  C3/D  aspects 
described  above  for  the  nuclear  model  have  a  parallel  aspect  for  the 
chemical  model. 

2.4  Ground  Combat  Model 


Ground  combat  in  TACWAR  is  simulated  on  a  division- level 
resolution.  Personnel  and  weapon  system  attrition  and  subsequent 
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movement  of  the  forward  edge  of  the  battle  area  (FEBA)  are  determined  as 
functions  of  the  effectiveness  of  the  divisions  of  the  two  combatant 
sides.  Any  C3/D  within  the  divisions  will  affect  this  combat 
effectiveness,  which  will  then  affect  the  attrition  and  FEBA  movement. 
The  amount  by  which  C3/D  influences  overall  combat  effectiveness  of  a 
division  can  be  provided  by  an  explicit  functional  relationship. 

2 • 5  Theater  Control  Model 

In  TACWAR,  theater  control  includes  division  and  airbase 
resupply,  reinforcement,  replacement,  and  reallocation.  As  in  the 
ground  combat  model  above,  reinforcement  and  replacement  for  divisions 
are  functions  of  division  combat  effectiveness,  which  is  itself 
influenced  by  C3/D.  Division  resupply  and  reallocation  (movement)  , 
although  strongly  dependent  on  C3/D,  have  not  been  modified. 
Specifically,  the  gross  nature  in  which  T AC WAR  simulates  the  movement  of 
entire  divisions  (and  has  no  capability  of  modeling  movement  of  division 
subunits)  is  not  amendable  to  a  C3/D  augmentation.  As  with  the  air 
combat  model,  no  C3/D  augmentation  of  airbase  resupply  and  reallocation 
was  attempted  within  theater  control • 


3.  DETAILS  OF  C3/D  MODIFICATIONS  TO  TACWAR 

The  following  four  major  areas  of  TACWAR  have  been  augmented  to 
include  C3/D  effects: 

Division  combat  effectiveness 

Nuclear  delivery  system  availability 

Nuclear  escalation  state  authorization  delay 

Nuclear  and  chemical  target  acquisition  processing  delay 

In  each  candidate  area  for  C3/D  augmentation  to  TACWAR,  it  is 
necessary  to  specify  C3  equipment  or  processes  that  are  attrited  or 
degraded.  If  these  C3  assets  were  to  be  modeled  explicitly  in  TACWAR, 
it  would  be  necessary  also  to  specify  and  to  explictly  model  the  combat 
by  and  against  these  assets.  In  particular,  the  augmentation  would  have 
to  include  target  acquisition,  weapon  '  resource  allocation,  damage 
analysis,  repair-,  and  reconstitution  of  the  C3  assets. 

The  modeling  effort  necessary  to  include  the  above  effects  is  beyond 
the  scope  of  the  present  work.  Consequently,  C3  assets  are  not 
explicitly  included  in  the  C3/D  augmentation.  Instead,  other  combat 
assets  that  are  already  incorporated  in  TACWAR  are  employed  as 
surrogates  for  C3  assets.  For  example,  the  surrogates  for  C3  assets 
within  a  division  will  be  the  different  weapons  systems  of  that 
division.  For  a  corps-sector  echelon  and  theater  echelon,  the 
surrogates  will  be  a  mix  of  airbase  assets,  surface-to-surface  missile 
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( SSM)  sites,  and  surface-to-air  missile  (SAM)  sites.  These  surrogates 
will  be  modified  by  appropriate  weighting  factors  in  the  augmentations 
to  realistically  reflect  the  actual  mix  of  C3  assets  at  the  several 
echelons • 

Each  of  the  areas  of  C3/D  augmentation  is  described  in  the  following 
sections.  The  actual  FORTRAN  code  changes  and  augmentations  are  in 
appendix  A  and  are  discussed  as  part  of  the  details  below.  With  this 
description  and  appendix  A,  the  interested  reader  with  a  minimum  of 
effort  may  include  C3/D  effects  into  a  local  version  of  TACWAR. 

3.1  Division  Combat  Effectiveness  Augmentation 

In  TACWAR,  each  combat  division  is  currently  described  by 
effectiveness  parameters  such  as  EFFDD ( ID)  and  EFFDA(ID),  where  ID  is 
the  division  identifier  index.  These  parameters  depend  on  degradation 
of  weapons  systems  and  personnel  in  the  division  (compared  with  levels 
given  by  tables  of  organization  and  equipment — TOE),  the  current 
supplies  available  to  the  division,  and  the  current  chemical  posture  of 
the  division. 

For  C3/D  augmentation,  the  division  combat  effectiveness 
parameters  are  modified  by  a  C3/D  multiplying  factor.  This  multiplying 
factor  is  itself  determined  by  a  functional  relationship  between 
decreased  combat  effectiveness  due  to  C3/D  and  decreased  division 
communications  (message  throughput)  capability.  Similarly,  this 
decreased  division  communications  capability  is  determined  by  a 
functional  relationship  between  itself  and  a  decrease  of  C3  assets 
within  the  division.  Lastly,  the  decrease  in  C°  assets  is  to  be 
determined  by  using  the  degradation  of  surrogate  division  assets  already 
modeled,  these  assets  being  the  several  weapons  systems  belonging  to  the 
division. 


The  general  flow  of  logic  beginning  with  degradation  of 
division  weapons  systems  and  resulting  in  a  division  combat 
effectiveness  C3/D  reduction  factor  is  shown  in  figure  1.  The  actual 
changes  to  the  TACWAR  code  are  shown  in  appendix  A  and  are  discussed 
below. 


8 


DIV 

WEAPON  SYSTEM 
DEGRADATION 

C3  SYSTEM 

DIV 

DEGRADATION 

L  oTol tM 

DEGRADATION 

01V 

C3  SYSTEM 
DEGRADATION 

b* 

MESSAGE 

REDUCTION 

CORRELATION 

- 

DIV 

MESSAGE/INFO 

REDUCTION 

01V 

MESSAGE/INFO 

REOUCTION 

L  ^1 

EFFECTIVENESS 

DIV 

C3/D  EFFECTIVENESS 
FACTOR 

ntUUL  1 1UN 

CORRELATION 

C3  SYSTEM 
CORRELATION 


c3/d 


I 

TYPE 


ftype  x 


^  TYPE 

To&e 


MESSAGE 

REDUCTION  TACNET  RESULTS 

CORRELATION 


EFFECTIVENESS 

REOUCTION  TRASANA  (UNOFFICIAL) 

CORRELATION 


Figure  1*  Logic  flow  algorithm  for  C3 
degradation  of  division 
effectiveness . 


Seven  new  array  variables  are  needed  to  hold  the  user  input 
functional  relationships  and  surrogate  asset  weighting  factors*  These 
array  variables  are  consolidated  into  a  common  block  labeled  TNFSC3. 


NC3DD (L)  contains  the  number  of  function  pairs  XC3DD  and 

L  =  1  to  2  YC3DD  that  describe  the  functional  relationship 

between  the  division  combat  effectiveness 
C3/D  reduction  factor  and  the  decreased  division 
communications  capability  for  each  combatant 
side  indexed  L. 


XC3DD(I,L)  contains  the  Ith  abscissa  point  for  the  function 

I  =  1  to  8  associated  with  NC3DD(L)*  The  abscissae  are 

L  =  1  to  2  fractions  of  the  division  communications 

capability  remaining  (0*0  corresponding  to  zero 
capability  and  1.0  corresponding  to  full 
capability) . 
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YC3DD  ( I ,  L) 

I  =  1  to  8 
L  =  1  to  2 


NCOMD(L) 

L  =  1  to  2 


XCOMD ( I,L) 

I  =  1  to  8 
L  =  1  to  2 


YCOMD ( I ,  L) 

I  =  1  to  8 
L  =  1  to  2 


FCLWL ( IW , L ) 

IW  =  1  to  10 
L  =  1  to  2 


contains  the  Ith  ordinate  point  for  the 
function  associated  with  NC3DD(L).  The 
ordinates  are  fractional  reductions  of  division 
combat  effectiveness  due  to  C3/D. 

contains  the  number  of  function  pairs  XCOMD  and 
YCOMD  that  describe  the  functional  relationship 
between  decreased  division  communications 
capability  and  the  degradation  of  division  C3 
assets  for  each  combatant  side  indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NCOMD(L) •  The  abscissae  are 
fractions  of  division  C3  assets  remaining  (0.0 
corresponding  to  zero  assets  and  1 • 0  corre¬ 
sponding  to  full  assets). 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NCOMD(L).  The  ordinates  are 
fractions  of  division  communications  capability 
remaining  (identical  to  XC3DD) • 

contains  the  weighting  factors  to  correlate  the 
division  surrogate  weapon  system  indexed  IW  to 
an  equivalent  division  C3  asset.  Note:  Within 
the  C3/D  modifications  to  TACWAR,  the  variables 
FCLWL  are  normalized  so  that  the  full  TOE  level 
of  weapons  systems  in  the  division  corresponds 
to  full  C3  assets.  The  division  C3  assets 
calculated  by  using  variable  FCLWL  are  used  not 
only  by  the  division  effectiveness  augmentation, 
but  also  by  the  nuclear  delivery  system  avail¬ 
ability  augmentation  and  the  target  acquisition 
processing  delay  time  augmentation  described  in 
later  sections. 


The  following  subroutines  calculate  or  use  division  combat  effectiveness 
parameters  EFFDD(ID)  and  EFFDA(ID): 

GC  within  DO  loop  2525 

FEBAMT  within  DO  loop  520 

TC  within  DO  loop  4520  and  DO  loop  9020 

TIMET  following  CONTINUE  820 

The  explicit  code  changes  in  these  subroutines  to  incorporate  the 
division  effectiveness  factor  due  to  C3/D  are  given  in  appendix  A. 
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3 . 2  Nuclear  Delivery  System  Availability  Augmentation 


In  the  TACWAR  nuclear  model,  the  nuclear  delivery  systems 
available  for  each  combatant  side  are  assembled  into  three  major 
echelons  associated  with  command  control:  division,  corps-sector,  and 

theater  delivery  systems.  A  count  is  kept  of  the  number  of  delivery 
systems  available  at  each  echelon  for  each  side.  This  count  of 
availability  is  modified  by  a  cVd  reduction  factor  that  reflects  the 
decrease  in  availability  due  to  a  failure  to  complete  special  nuclear 
authorization  and  release  ( A/R)  messages.  The  C^/D  reduction  factor  is 
determined  from  a  functional  relationship  between  the  loss  of  special 
A/R  messages  and  the  degradation  of  assets  within  each  command 

control  echelon. 

The  degradation  of  assets  is  to  be  determined  by  using  a 

weighted  degradation  of  surrogate  assets  already  modeled  within  TACWAR 
and  associated  with  each  of  the  three  echelons.  Specifically,  the 
following  assets  will  be  used  as  surrogates  for  assets  at  the 

different  echelons: 

Division 

Division  weapons  systems  (using  the  same  technique  as  that 
described  in  the  previous  section  for  division  combat  effectiveness) 

Corps-sector 

Forward  sector  airbase  assets 

Belt  SAM  sites 

Forward  sector  medium-range  SSM  sites 

Forward  sector  long-range  SSM  sites 

Theater 


Rear  sector  airbase  assets 

Communication  zone  (COMMZ)  airbase  assets 

Rear  region  long-range  SAM  sites 

COMMZ  long-range  SAM  sites 

Rear  sector  long-range  SSM  sites 

As  these  assets  are  degraded  at  the  several  echelons,  a  weighted 
proportion  is  assumed  to  correspond  to  the  degradation  of  C^  assets 
within  the  same  echelon.  The  general  flow  of  logic  beginning  with  the 
degradation  of  explicitly  modeled  echelon  assets  and  resulting  in  the 
cVd  factor  for  the  availability  of  nuclear  delivery  systems  at  that 
echelon  is  shown  in  figure  2. 
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Figure  2.  Logic  flow  algorithm  for 

degradation  of  nuclear  delivery 
system  availability. 


The  changes  necessary  in  TACWAR  to  include  the  degradation  of 
nuclear  delivery  system  availability  as  a  result  of  C3/D  are  given  in 
appendix  A  and  are  discussed  below. 

Twenty-one  new  array  variables  are  required  to  hold  the  user 
input  functional  relationships ,  the  surrogate  asset  weighting  factors, 
the  initial  numbers  of  explicitly  modeled  echelon  assets,  and  the 
nuclear  delivery  system  degradation  factors.  The  array  variables  are 
consolidated  in  two  common  blocks  labeled  TNFSC1  and  TNFSC2 . 

INABF ( I S , L)  contains  the  initial  number  of  forward  area 

IS  =  1  to  8  airbases  in  sector  indexed  IS  for  combatant  side 

L  =  1  to  2  indexed  L. 
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INABR( IS / L) 
IS  =  1  to  8 
L  =  1  to  2 

INABZ(L) 

L  =  1  to  2 

NC3SD (L ) 

L  =  1  to  2 


XC3SD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YC3SD( I , L) 

I  =  1  to  8 
L  =  1  to  2 


FDDSAD ( IS , L ) 
IS  =  1  to  8 
L  =  1  to  2 

FSDSAD ( IS, L) 
IS  =  1  to  8 
L  =  1  to  2 

FTDSAD ( IS , L ) 
IS  =  1  to  8 
L  -  1  to  2 

FABDCC(L) 

L  =  1  to  2 


ABSFCC( IS /L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  initial  number  of  rear  area  airbases 
in  sector  indexed  IS  for  side  indexed  L. 


contains  the  initial  number  of  COMMZ  airbases  for 
side  indexed  L. 

contains  the  number  of  function  pairs  XC3SD  and 
YC3SD  that  describe  the  functional  relationship 
between  the  fractional  degradation  of  nuclear 
delivery  system  availability  and  the  degradation 
of  C3  assets  at  each  echelon  for  combatant  side 
indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NC3SD(L).  The  abscissae  are 
fractions  of  C3  assets  remaining  in  a  particular 
echelon. 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NC3SD(L) .  The  ordinates  are 
fractional  reductions  in  nuclear  delivery  system 
availability  at  a  particular  echelon. 

contains  the  current  C3/D  fractional  reduction  in 
the  nuclear  delivery  system  availability  for  the 
division  echelon  in  sector  IS  for  side  L. 

contains  the  current  C3/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
corps-sector  echelon  in  sector  IS  for  side  L. 

contains  the  current  C3/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
theater  echelon  in  sector  IS  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C3  assets  with 
surrogate  airbase  assets  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  (average)  airbase  in  the  forward  area 
of  sector  IS  for  side  L. 
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ABSRCC ( IS , L ) 
IS  =  1  to  8 
L  =  1  to  2 

ABCZCC(L) 

L  =  1  to  2 

FSSMCC ( L ) 

L  =  1  to  2 


TSSMIR( IS ,  L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIM( IS/L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIL( IS/L) 
IS  =  1  to  8 
L  =  1  to  2 


FSAMCC(L) 

L  =  1  to  2 


TSAMIR( IR/L) 
IR  =  1  to  3 
L  =  1  to  2 


TSAMIZ(L) 

L  =  1  to  2 


contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  rear  area  of  sector  IS 
for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  COMMZ  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C3  assets  with 
surrogate  SSM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SSM  sites  located  in  the  rear  area  of 
sector  IS  for  side  L.  TSSMIR  is  set  to  the 
initial  value  of  the  variable  SSMSRS ( IS,L) 
already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps-sector 
echelon  medium- range  SSM  sites  in  the  forward 
area  of  sector  IS  for  side  L.  SSSMIM  is  set  to 
the  initial  value  of  the  variable  SSMSFS 
( 1 , IS/L)  already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps-sector 
echelon  long-range  SSM  sites  in  the  forward  area 
of  sector  IS  for  side  L.  SSSMIL  is  set  to  the 
initial  value  of  the  variable  SSMSFS  (2,IS,L) 
already  incorporated  in  TACWAR. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C3  assets  with 
surrogate  SAM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  rear  area  of  region 
IR  for  side  L.  TSAMIR  is  set  to  the  initial 
value  of  the  variable  ALRSR( 1 , IR, L)  already 
incorporated  in  TACWAR. 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  COMMZ  for  side  L. 
TSAMIZ  is  set  to  the  initial  value  of  variable 
ALRSZ ( 1 ,  L)  already  incorporated  in  TACWAR. 
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SSAMIF(IR,L) 
IR  =  1  to  3 
L  =  1  to  2 


contains  the  initial  number  of  corps-sector 
echelon  belt  SAM  sites  in  the  forward  area  of 
region  IR  for  side  L.  SSAMIF  is  set  to  the 
initial  value  of  variable  BMRS ( 1 / IR/L)  already 
incorporated  in  TACWAR. 


In  addition  to  the  new  array  variables  described  above,  two  new 
subroutines  have  been  created  as  part  of  the  C^/D  augmentation  of 
nuclear  delivery  system  availability.  These  two  subroutines,  named 
DSDEG  and  NUCCCD,  are  given  in  appendix  A  and  are  briefly  described 
below. 


Subroutine  DSDEG  calculates  the  fractional  decrease  in  the 
availability  of  nuclear  delivery  systems  controlled  by  the  three 
echelons  for  each  sector  IS  and  for  each  side  L.  These  fractional 
values  are  stored  in  variables  FTDSAD,  FSDSAD,  and  FDDSAD  for  later  use 
by  subroutine  NWHINV.  The  calculations  are  performed  by  using  the 
following  algorithm: 

•  Determine  the  SAM  region  IR  associated  with  sector  IS. 

•  Adjust  the  surrogate  weighting  factors  for  airbase  assets  as 

required. 


•  Determine  the  fractional  C3  equipment  degradation  from  the 
weighted  fractional  degradation  of  the  surrogate  at  each  echelon. 

•  Determine  the  fractional  degradation  of  the  nuclear  delivery 
system  availability  at  each  echelon  from  the  functional  relationship 
between  the  decrease  in  availability  and  the  degradation  of  the  echelon 
C3  assets. 

In  addition,  subroutine  DSDEG  holds  the  calculated  corps-sector  and 
theater  C3  asset  degradation  for  use  in  the  nuclear  escalation  state 
authorization  delay  and  target  acquisition  processing  delay  augmen¬ 
tations  described  in  later  sections. 

One  special  procedure  in  DSDEG  should  be  noted  on  the 
calculation  for  the  division  echelon  C3  assets.  The  total  degradation 
of  C3  assets  for  this  echelon  is  taken  as  the  geometric  mean  of  both  the 
corps-sector  and  the  division  C3  degradation.  This  procedure  more 
realistically  simulates  the  corps-to-division  C3  measures  actually  used. 

Subroutine  NUCCCD  determines  the  current  values  of  the  airbase 
assets  for  forward  area,  rear  area,  and  COMMZ  notional  airbases  for  each 
sector  IS  and  for  each  side  L.  These  airbase  assets  are  stored  in  array 
variables  ABSFCC,  ABRSCC,  and  ABCZCC,  respectively.  They  are  calculated 
from  the  current  values  of  the  operation  capability  OCNUC(IAB)  of  the 
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actual  airbases  comprising  the  notional,  where  IAB  is  the  index 
identifying  the  actual  airbase. 

Much  of  the  code  for  subroutine  NUCCCD  is  extracted  from 
subroutine  DEG  (already  a  part  of  TACWAR)  that  performed  a  similar 
function  using  variable  OCNUC(IAB).  Moreover,  to  correctly  determine 
the  operating  capability  of  each  actual  airbase,  the  variable  OCNUC  is 
now  computed  in  subroutine  DAMEVL.  Subroutine  NUCCCD  also  performs  the 
task  of  initializing  the  variables  INABF,  INABR,  and  INABZ. 

Subroutines  DSDEG  and  NUCCCD  are  called  once  every  nuclear  or 
chemical  subcycle  from  subroutine  TMAIN.  The  results  from  DSDEG  are 
used  in  subroutine  NWHINV  to  make  the  actual  modifications  to  the 
nuclear  delivery  system  availability  variables  due  to  C^/D. 

3 • 3  Nuclear  Escalation  State  Authorization  Delay  Augmentation 

Presently  in  TACWAR,  depending  on  the  current  tactical  status, 
immediate  escalation  to  a  combat  state  may  occur  in  which  nuclear  and 
chemical  weapons  can  be  used.  This  ability  to  escalate  instantaneously 
is  typically  not  a  faithful  nuclear  combat  simulation  since  it  precludes 
the  proper  authorization  by  high-level  authorities  for  each  combatant 
side.  Consequently,  TACWAR  has  been  modified  to  simulate  the  nuclear 
request  and  authorization  procedures  as  a  processing  and  decision-making 
delay  time  between  the  time  that  a  nuclear  escalation  state  is  desired 
within  a  sector  (as  a  function  of  the  current  tactical  status  of  that 
sector)  and  the  time  that  the  escalation  can,  in  fact,  occur.  This 
processing  delay  time  is  a  function  of  C^/D  occurring  for  each  side, 
especially  in  the  theater  and  corps-sector  echelons  of  the  battlefield. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear 
escalation  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  discussed  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships,  the  theater  and  corps-sector  assets,  and 

the  escalation  state  processing  flags.  These  array  variables  are 
consolidated  in  a  common  block  labeled  TNFSC4. 

NEDLY(L)  contains  the  number  of  function  pairs  XEDLY 

L  =  1  to  2  and  YEDLY  that  describe  the  functional 

relationship  between  the  fractional 
degradation  of  assets  in  the  theater  and 
corps-sector  echelons  and  the  processing 
delay  time  for  nuclear  escalation  for 
combatant  side  L. 


16 


XEDLY ( I , L ) 

I  =  1  to  8 
L  =  1  to  2 


YEDLY ( I ,  IF  ,  L ) 
I  =  1  to  8 
IF  =  1  to  2 
L  =  1  to  2 


JESC ( IS , ITC / L ) 
IS  =  1  to  8 
ITC  =  1  to  3 
L  =  1  to  2 


IWAUT ( IS , L) 
IS  =  1  to  8 
L  -  1  to  2 

IFPLS ( IS , L) 
IS  =  1  to  3 
L  =  1  to  2 

TEQPD(L) 

L  =  1  to  2 


SEQPD ( IS , L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  Ith  abscissa  point  for  the 
function  asociated  with  NEDLY(L).  The 
abscissae  are  fractions  of  equipment 
assets  remaining  in  a  theater  or  corps-sector 
echelon  for  side  L. 

contains  the  Ith  ordinate  point  for  two 
functions  ( IF  =  1  and  IF  =  2)  associated  with 
NEDLY ( L ) •  The  ordinate  is  nuclear  A/R 
processing  times  (in  hours)  for  each  side 
L.  The  function  corresponding  to  IF  =  1 
describes  the  delay  time  associated  with  the 
first  A/R  cycle  for  each  side  L  and  typically 
reflects  the  enhanced  decision-making  delay 
for  first  use  of  nuclear  weapons-  The 
function  corresponding  to  IF  =  2  describes 
the  delay  time  associated  with  all  A/R  cycles 
following  the  first. 

contains  the  desired  escalation  state  for  side 
L  within  sector  IS  against  target  category 
ITC-  This  variable  will  reflect  the  nuclear 
escalation  state  to  which  side  L  will  advance 
following  the  completion  of  the  required 
processing  delay. 

contains  the  control  flags  that  are  set 
whenever  side  L  within  sector  IS  is  waiting 
for  nuclear  release  authorization. 

contains  the  control  flags  that  are  set 
following  the  first  authorization  to  a 
nuclear  state  by  side  L  in  sector  IS. 

contains  the  current  fractional  decrease  in 
theater  assets  for  side  L.  These 
variables  are  determined  from  the 
identical  surrogate  theater  assets  described 
in  section  3.2  for  the  degradation  of  nuclear 
delivery  system  availability. 

contains  the  current  fractional  decrease  of 
corps-sector  assets  within  sector  IS  for 
side  L.  These  variables  are  determined  from 
identical  surrogate  corps-sector  assets  used 
for  the  degradation  of  nuclear  delivery 
system  availability. 
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contains  the  current  waiting  time  (in  hours) 
following  the  onset  of  a  nuclear  escalation 
request  by  side  L  in  sector  IS.  This  time  is 
updated  every  nuclear  or  chemical  subcycle 
until  the  appropriate  delay  has  been 
achieved. 

In  addition  to  the  nine  new  array  variables/  one  new 
subroutine,  named  EDELAY,  has  been  created  as  part  of  the  augmentation 
to  delay  the  nuclear  escalation  process.  EDELAY  is  given  in  appendix  A 
and  is  briefly  described  below. 

EDELAY  uses  the  above  array  variables  to  calculate  and  update  a 
processing  delay  time  and  the  current  waiting  time  before  a  desired 
nuclear  escalation  state  can  be  realized  by  each  side  in  each  combat 
sector  IS.  EDELAY  uses  an  algorithm  shown  in  the  flow  diagram  in  figure 
3.  Specifically,  for  each  side  and  for  each  sector, 

•  Calculate  the  fractional  equipment  assets  (associated  with 
nuclear  A/R)  degraded  in  each  sector.  These  assets  correspond  to  the 
geometric  mean  of  the  theater  and  corps-sector  echelon  assets  since 
the  authorization  process  occurs  through  a  theater  to  corps-sector  chain 
of  command. 


CTIME ( IS , L) 
IS  =  1  to  8 
L  =  1  to  2 


•  Determine  the  desired  escalation  state. 

•  If  not  already  waiting,  reset  the  waiting  time  and  set  the 
waiting  flag. 

•  Determine  the  current  delay  time  as  a  function  of  C^/D. 

•  Update  the  current  waiting  time. 

•  If  the  waiting  period  is  complete,  set  the  current  escalation 
state  to  the  desired  state,  reset  the  waiting  flag,  and  reset  the 
desired  escalation  state. 

EDELAY  is  called  from  subroutine  NUC 1  immediately  following  the  call  to 
ESCLAT. 


3.4  Nuclear  or  Chemical  Target  Acquisition  Processing  Delay 

Presently  in  TACWAR  the  target  acquisition  (TA)  model  provides 
for  the  acquisition  by  each  combatant  side  against  active  and  reserve 
division  subunit  targets  of  the  opposite  side.  Using  ground  sensor, 
army-air  sensor,  and  air  force  sensor  assets,  the  following  three 
quantities  are  determined  against  each  target  type: 
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Total  probability  of  detection  by  all  available  TA  assets 
Root-mean-square  TA  error 

Weighted  average  processing  time  for  TA  information 


The  first  two  quantities  are  primarily  functions  of  the  number  and 
operating  characteristics  of  the  TA  sensors  and  are  negligibly 
influenced  by  C Vd.  However,  the  third  quantity,  TA  processing  time,  is 
greatly  influenced  by  cVd.  Consequently,  TACWAR  is  augmented  to 
include  the  increase  in  TA  processing  time  due  to  the  degradation  of 
assets  within  the  area  where  the  TA  sensors  are  controlled.  This 
additional  processing  time  is  then  added  to  the  nominal  processing  time 
(already  a  part  of  TACWAR)  to  give  a  total  processing  time  for  the  TA 
information  against  each  target  type. 


AT  EACH  NUCLEAR  SUBCYCLE  (2  HR) 
FOR  EACH  SIDE 
FOR  EACH  SECTOR 


PREEMPTIVE  STRIKE 


Figure  3.  Logic  flow  diagram  of  C^  degradation  of 
nuclear  escalation  process. 


In  T  AC  WAR,  the  TA  processing  time  currently  calculated  is  not 
effectively  used  by  the  other  subroutines  of  TACWAR.  In  particular,  the 
TA  processing  time  becomes  an  important  quantity  in  the  overall  combat 
simulation  when  the  simulation  also  includes  movement  of  the  targets. 
Thus,  if  TA  processing  is  excessively  long  against  an  acquired  target, 
then  that  potential  target  may  move  to  another  location  before  being 
attacked  by  nuclear  or  chemical  munitions.  The  effects  of  subsequent 
nuclear  or  chemical  strikes  would  then  be  partially  or  completely 
negated.  Since  TACWAR  presently  has  no  simulation  of  the  movement  of 
subunit  targets  and  does  not  use  the  TA  processing  times  against  these 
subunit  targets,  the  effects  of  C^/D,  especially  as  they  modify  TA 
processing  times,  will  have  minimal  impact  on  the  outcome  of  the  combat 
simulation.  Consequently,  it  is  recommended  that  TACWAR  be  modified  to 
include  the  necessary  target  subunit  movement  capability.  However,  such 
a  modification  would  be  outside  the  scope  of  this  work. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear  or 
chemical  TA  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  described  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships  between  C^  equipment  degradation  and  increased 
TA  processing  times.  These  array  variables  are  consolidated  in  a  common 
block  labeled  TNFSC5 • 


NGSFD(L) 

L  =  1  to  2 


XGSFD ( I , L ) 

I  =  1  to  8 
L  =  1  to  2 


contains  the  number  of  function  pairs  XGSFD 
and  YGSFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  division  ground  sensors 
and  the  degradation  of  division  C^  assets  for 
side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NGSFD(L) •  The 
abscissae  are  fractions  of  C^  assets 
remaining  in  a  division. 


YGSFD ( I , L) 

I  =  1  to  8 
L  =  1  to  2 


NAAFD(L) 

L  =  1  to  2 


contains  the  Ith  ordinate  point  for  the 
function  associated  with  NGSFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  the  division  ground  sensors 
for  side  L. 

contains  the  number  of  function  pairs  XAAFD 
and  YAAFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  army-air  sensors  and  the 
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I 


XAAFD ( I ,  L) 

I  =  1  to  8 
L  =  1  to  2 


YAAFD ( I ,  L) 

I  =  1  to  8 
L  =  1  to  2 


NAFFD(L) 

L  =  1  to  2 


XAFFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YAFFD ( I , L ) 

I  =  1  to  8 
L  =  1  to  2 


degradation  of  forward  corps-sector  C3  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAAFD(L) .  The 
abscissae  are  fractions  of  C3  assets 
remaining  in  the  forward  corps-sector  of  side 

L. 

contains  the  Ith  ordinate  point  for  the 
function  associated  with  NAAFD(L) •  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  army-air  sensors  for  side  L. 

contains  the  number  of  function  pairs  XAFFD 
and  YAFFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  air  force  sensors  and  the 
degradation  in  the  forward  region  C3  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAFFD(L) .  The 
abscissae  are  fractions  of  C3  assets 
remaining  in  the  forward  region  of  side  L  (as 
determined  by  the  average  of  the  fractional 
C3  assets  remaining  in  the  corps-sectors  that 
comprise  the  region) . 

contains  the  Ith  ordinate  point  of  the 
function  associated  with  NAFFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  air  force  sensors  for  side  L. 


The  three  functional  relationships  given  above  describe  the  influence  of 
C3/D  on  TA  processing  times  for  each  of  the  three  types  of  TA  assets — 
ground^  army-air/  and  air  force/  respectively.  The  degradation  of  C3 
assets  within  each  of  the  three  areas  that  control  these  different  TA 
assets  is  calculated  *  in  a  manner  identical  for  that  of  the  earlier 
sections.  Specifically/  the  degradation  of  divisional  C3  assets  that 
control  the  ground  sensors  is  determined  from  surrogate  weapons  systems 
assets  as  described  in  section  3.1.  Similarly,  the  degradation  of  C3 
assets  that  control  army-air  sensors  in  corps-sector  IS  =  1  to  8  is 
contained  in  the  array  variable  SEQPD  described  in  section  3.3.  The 
degradation  of  C3  assets  that  control  air  force  sensors  in  regions  IR  = 
1  to  3  is  determined  as  an  average  of  the  C3  asset  degradations  (SEQPD) 
for  all  corps-sectors  comprising  the  regions. 
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In  sections  in  subroutines  TADPAR  and  TARACA  (already  a  part 
of  TACWAR)  ,  the  above  functions  are  used  and  the  increase  in  TA 
processing  times  is  calculated  (app  A). 

3.5  Ancillary  Modifications  to  TACWAR 


In  addition  to  the  modifications  described  in  sections  3.1  to 

3.4,  several  ancillary  modifications  are  required  in  TACWAR  to  support 
the  above  modifications*  Specifically,  a  user  data  input  subroutine, 
named  TNFINP,  and  a  data  initialization  BLOCK  DATA  subroutine  have  been 
created  to  initialize  the  array  variables  described  in  sections  3.  1  to 

3.4.  Both  TNFINP  and  the  BLOCK  DATA  subroutines  are  given  in  appendix 
A.  Also,  the  single  call  to  subroutine  TNFINP  is  made  at  the  beginning 
of  subroutine  TMAIN • 


4.  LIMITATIONS 

In  constructing  the  augmentations  to  TACWAR  described  in  section  3, 
no  attempt  was  made  to  minimize  the  additional  required  storage  to  hold 
the  new  data  variables  and  code.  In  particular,  no  overlay  structure 
was  developed  that  would  conform  to  that  of  the  later  versions  of 
TACWAR.*  Similarly,  the  data  for  the  new  variables  are  input  through  a 
rather  rudimentary  set  of  READ  instructions  in  subroutine  TNFINP,  and  no 
attempt  was  made  to  include  this  data  input  into  the  rather  extensive 
input  phase  of  TACWAR.  One  consequence  of  this  is  that  the 
augmentations  do  not  support  the  "restart"  capability  described  by  the 
Defense  Communications  Agency. t  Another  consequence  is  the  requirement 
for  the  augmented  data  to  be  in  a  definite  sequence  for  proper 
interpretation  by  subroutine  TNFINP. 


5.  USER  DATA  INPUT 

For  the  most  part/  the  user  data  necessary  to  initialize  the  new 
array  variables  (sect.  3)  are  (1)  the  weighting  factors  used  to 
transform  an  explicitly  modeled  area  asset  into  an  equivalent  C^  asset 
for  the  same  area  or  echelon  and  (2)  the  functional  relationships 
describing  the  influence  of  C^/D  on  the  several  combat  simulations. 

The  surrogate  assets  for  the  division  level  C^  equipment  are  the 
weapons  systems  within  the  divisions  (up  to  10  such  system  types  are 
allowed  for  each  division) •  An  initial  approximation  would  be  to  assume 


* TACWAR  Core  Reduction ,  Defense  Communications  Agency  CCTC  Letter 
Report ,  Task  Order  634  Subtask  1  (17  April  1978). 

t TACWAR  Restart  Capability ,  Defense  Communications  Agency  CCTC  Letter 
Report ,  Task  Order  534  Subtask  2  (14  December  1977). 
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that  one  C3  asset  is  associated  with  each  weapons  system;  thus,  the 
weighting  factors  for  division  C3  assets  would  be  the  initial  number  of 
weapons  systems  at  the  beginning  of  the  simulation  for  each  combatant 
side*  These,  in  fact,  are  the  weighting  factors  used  in  the  examples  of 
section  6*  However,  it  is  probably  a  better  simulation  of  reality  to 
assume  one  C3  asset  (in  arbitrary  units)  to  each  division  subunit.  The 
number  of  weapons  systems  in  each  of  the  subunit  types  would  then 
determine  the  appropriate  C3  asset  weighting  factor. 

The  surrogate  assets  for  corps- sector  and  theater  C3  equipment  are 
airbase  assets,  SSM  assets,  and  SAM  assets.  The  weighting  factors  to 
transform  these  into  equivalent  C3  assets  may  be  determined  by  the 
following  rationale.  Airbase  assets  may  be  roughly  equated  with  fixed- 
site  hardened  C3  facilities;  SSM  sites  may  be  roughly  equated  with 
mobile  nuclear  "soft"  C3  assets;  SAM  sites  may  be  roughly  equated  with 
semimobile  nuclear  hardened  C3  assets.  The  appropriate  mix  of  the  group 
will  depend  upon  the  specific  theater  of  conflict.  For  the  examples 
given  in  section  6,  the  following  corps- sec tor  and  theater  weighting 
factors  are  used  for  each  side: 

Airbase  0.30 

SSM  0.40 

SAM  0.30 

The  functional  relationships  between  C3/D  and  the  several  aspects  of 
the  augmentations  are  provided  according  to  the  following  assumptions: 

a.  The  functional  relationship  between  the  degradation  of  division- 
level  C3  assets  and  the  reduction  of  division-level  messages  is  obtained 
from  the  results  of  TACNET  (a  discrete  event  simulation  of  a  theater- 
level  communications  model  developed  by  Egon  Marx2).  The  explicit 
relationship  is  shown  in  figure  4  and  assumed  applicable  for  each  side. 

b.  The  functional  relationship  between  the  reduction  of  division- 
level  message  traffic  and  the  decreased  division  effectiveness  is 
obtained  from  consultation  with  personnel  at  the  U.S.  Army  Training  and 
Doctrine  Command  (TRADOC)  Systems  Analysis  Activity  (TRASANA).  This 
relationship  is  shown  in  figure  5  and  is  assumed  applicable  for  each 
side  • 


c.  The  functional  relationship  between  the  degradation  of  corps- 
sector  and  theater  C3  assets  and  the  reduction  of  " special"  messages 
associated  with  the  availability  of  nuclear  delivery  systems  was  taken 
from  the  Marx  report.2  This  relationship  is  shown  in  figure  6  and  is 
assumed  applicable  for  each  side. 


2 Egon  Marx,  TACNET,  A  Model  of  the  Army’s  Tactical  Communications 
Networks  in  Europe,  Harry  Diamond  '  Laboratories  HDL-TR-1913  (January 
1980). 

23  - 


INFORMATION  FLOW 
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Figure  5*  Division  effectiveness  as 
function  of  fraction  of 
information  messages 
available  within 
division • 


Figure  4.  Fraction  of  information 

available  within  division 
as  function  of  fraction 
of  C3  assets  remaining 
within  division. 
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Figure  6.  Fraction  of  nuclear 

authorization  and  release 
messages  available  as 
function  of  remaining  C3 
assets • 


d.  The  functional  relationships  between  the  degradation  of  corps* 
sector  and  theater  C3  assets  and  the  nuclear  escalation  authorization 
delay  times  are  shown  in  figure  7(a,  b)  for  side  L  =  1  (blue)  and  side  L 
=  2  (red).  These  data  are  initial  estimates  used  to  exercise  the 
augmentations  more  than  for  accurate  representations  of  reality. 

e.  The  functional  relationships  between  the  degradation  of 
division ,  corps-sector,  and  regional  C3  assets  and  the  increased  TA 
processing  time  are  shown  in  figure  8  (a,  b,  c)  and  are  assumed 
applicable  for  each  side.  These  data  are  primarily  to  exercise  the 
augmentations . 

Figure  9  illustrates  a  sample  data  deck  used  as  input  for  subroutine 
TNFINP  described  in  section  3.5.  It  is  imperative  that  the  data  cards 
follow  in  correct  sequence. 
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C1  ASSETS 


Figure  7 


Nuclear  escalation  delay 
time  as  function  of 
remaining  assets:  (a 
blue  side  and  (b)  red 
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Figure  9.  TNFINP  input  data. 


X 
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Figure  9.  TNFINP  input  data  (Cont'd) 


6.  RESULTS  OF  SAMPLE  RUNS 


The  C3/D  modified  TACWAR  model  has  been  exercised  for  several  sets 
of  input  data  t<3  validate  the  augmentations  described  in  section  3  and 
to  determine  the  degree  of  sensitivity  of  the  overall  combat  simulation 
to  these  augmentations •  These  sample  simulation  runs  were  made  by  using 
an  unclassified  benchmark  data  base  obtained  from  CCTC.  For  the 
different  sample  runs,  the  values  of  the  parameters  in  this  data  base 
remained  constant  except  those  parameters  used  to  control  the  overall 
operation  of  the  simulation  such  as  the  total  number  of  1 2-hr  cycles 
involved  and  the  inclusion  of  nuclear  combat  capability.  The  additional 
parameters  associated  with  the  C3/D  augmentation  were  varied  from  run  to 
run  in  order  to  make  the  sensitivity  determination. 

Although  the  parameters  in  the  benchmark  data  base  and  the 
parameters  associated  with  C3/D  augmentation  are  reasonable/  they  are 
not  necessarily  an  accurate  reflection  of  current  combat  capabilities  of 
U.S.  or  adversary  forces.  Consequently/  the  results  of  the  sample  runs 
have  no  direct  significance  in  an  actual  environment. 

6. 1  Conventional  Warfare — Influence  of  C3/P  on  Division 
Effectiveness 


The  first  series  of  sample  runs  involved  opposing  forces 
constrained  to  conventional  warfare  only,  with  no  possibility  of  nuclear 
or  chemical  escalation.  These  runs  were  used  to  exercise  the  C3/D 
augmentation  to  division  effectiveness  and  subsequent  combat  results 
such  as  weapon  system  losses,  personnel  casualties,  and  FEBA  movement. 
The  sample  runs  included  two  cases: 

•  Side  1  (blue)  alone  suffers  C3/D. 

•  Side  2  (red)  alone  suffers  C3/D. 

The  simulations  were  run  for  twenty-five  12-hr  cycles  (12.5 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater#  However,  the  results  of  only  a  typical  sector  (sector  6)  were 
subjected  to  a  detailed  analysis. 

Figure  10  shows  the  personnel  casualties  incurred  by  side  1 
(blue)  in  sector  6  for  the  two  cases.  If  only  the  last  values  of  the 
casualties  had  been  given  for  analysis  instead  of  the  entire  time 
history,  one  might  have  logically  concluded  that  the  results  disagreed 
with  practical  intuition.  Specifically,  after  cycle  14,  the  blue 
casualties  are  less  when  the  blue  side  suffers  C3/D  than  when  the  red 
side  suffers  C3/D.  However,  a  more  detailed  analysis  of  the  entire 
picture  of  the  combat  resolves  this  apparent  contradiction.  Thus,  when 
the  blue  side  alone  suffers  C3/D,  the  red  side  at  the  beginning  of  the 
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simulation  becomes  the  sector  attacker  and  maintains  this  attack  posture 
throughout  the  entire  simulation.  The  blue  side  (defending)  assumes 
several  different  defense  postures  such  as  delay,  prepared  defense, 
hasty  defense,  and  breakthrough,  as  shown  in  figure  10.  Each  of  these 
defense  postures  has  a  different  personnel  attrition  rate  associated 
with  it,  which  is  the  major  cause  of  the  abrupt  change  in  slope  in  the 
figure.  On  the  other  hand,  when  the  red  side  alone  suffers  cVd,  it 
again  begins  the  simulation  as  the  sector  attacker.  However,  after 
cycle  14,  the  red  side  stops  attacking  and  shifts  to  a  holding  posture; 
the  blue  side  likewise  shifts  from  defense  to  holding.  Since  the 
personnel  attrition  rate  for  a  holding  posture  is  greater  than  that  for 
the  delay  defense  posture,  the  blue  casualty  lines  for  the  two  cases 
cross  shortly  after  cycle  14,  and  the  apparent  inconsistency  is 
explained.  Consequently,  it  is  advisable  when  analyzing  the  results  of 
TACWAR  simulations  (including  those  associated  with  C^/D  augmentation) 
not  to  reject  as  wrong  or  in  error  any  result  that,  on  the  surface, 
appears  to  contradict  logical  intuition. 


reduction  of  division 
effectiveness • 
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Figure  11  shows  the  counterpart  casualties  incurred  by  side  2 
(red)  for  the  two  cases.  For  this  situation,  there  is  no  inconsistency 
in  what  is  to  be  intuitively  expected  (at  least  to  the  point  where  the 
simulation  run  was  ended).  These  results  show  approximately  a  10- 
percent  maximum  difference  for  the  two  extreme  cases  of  cVd,  that  is, 
blue  alone  versus  red  alone. 


H — —  D - P  ->K- 


-H0- 

-H0- 


}. 


RED 

POSTURE 

BLUE 

POSTURE 


12-HR  CYCLES 


Figure  11.  Red  casualties  for  C3/D 
reduction  of  division 
effectiveness • 
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Figure  12  shows  the  relative  FEB A  movement  in  sector  6  for  the 
two  cases.  This  figure  illustrates  the  fact  that  C3/D  can  dramatically 
affect  some  of  the  results  of  combat.  The  detailed  analysis  of  all 
aspects  of  the  simulation  is  required  for  full  understanding  of  the 
reason  for  this  behavior.  Thus,  with  blue  alone  suffering  C3/D,  the  red 
side  maintains  its  attack  posture  throughout  the  simulation.  After 
cycle  14,  when  the  blue  side  assumes  a  delay  defensive  posture  and  the 
terrain  interval  allows  a  fast  FEBA  movement,  the  slope  of  the  FEBA 
movement  line  abruptly  increases.  On  the  other  hand,  when  the  red  side 
alone  suffers  cVd,  its  attack  stalls  after  cycle  14,  and  the  FEBA 
movement  does  not  increase  further. 


Figure  12.  Forward  edge  of  battle  area 

movement  for  C^/D  reduction  of 
division  effectiveness. 
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6. 2  Nuclear  Warfare — Influence  of  C3/P  on  Nuclear  Delivery  System 

Availability 

The  next  series  of  sample  runs  involved  opposing  forces  engaged 
in  a  combined  conventional  and  nuclear  warfare  environment.  Nuclear 
warfare  was  played  by  assuming  that  a  new  escalation  state  could  be 
initiated  every  12-hr  cycle.  As  a  consequence  of  the  benchmark  data 
base  used,  a  restricted  set  of  escalation  criteria  was  used  in  the 
sample  runs.  Specifically,  preemptive  strike  escalation  was  allowed 
from  cycle  0  through  cycle  4.  Following  cycle  4,  the  only  criterion  for 
allowed  nuclear  escalation  was  the  FEBA  movement  past  a  critical 
threshold.  Consequently,  the  number  of  nuclear  escalation  attempts  was 
limited  for  both  sides. 

As  in  section  6.1,  sample  runs  included  simulations  in  which 
side  1  (blue)  alone  suffered  C3/D  and  in  which  side  2  (red)  alone 
suffered  C3/D.  The  simulations  were  run  to  twenty  12-hr  cycles  (10 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater.  Again  only  sector  6  was  analyzed  in  detail. 

Figures  13  to  15  show  the  fraction  of  nuclear  delivery  system 
availability  due  to  C3/D  for  division,  corps- sector ,  and  theater 
echelons,  respectively.  The  strong  decrease  in  the  availability  of 
corps- sec tor  delivery  systems  reflects  the  active  nuclear  combat  being 
played  as  a  result  of  preemptive  attacks.  After  cycle  4,  the  change  is 
much  slower  because  only  conventional  warfare  is  being  waged  during  this 
time.  The  changes  occurring  at  cycle  14  are  due  to  reallocation  of 
assets  from  the  theater  to  the  corps-sector  echelon.  The  availability 
of  theater  delivery  systems  shows  a  more  gradual  decrease  due  primarily 
to  conventional  attrition  by  aircraft  attack.  Lastly,  the  decrease  to 
zero  of  the  blue  side  division  availability  between  cycles  8  and  16  is 
an  "artifact"  resulting  when  the  supplies  inventory  for  the  blue 
divisions  is  depleted  and  the  divisions  are  forced  to  withdraw  out  of 
the  active  battle  area.  When  new  supplies  are  allocated  to  these 
divisions,  they  again  achieve  a  finite  delivery  system  availability. 

.  In  conclusion,  although  the  availability  factors  within  each 
echelon  are  strongly  influenced  by  C3/D,  the  total  number  of  nuclear 
rounds  fired  by  each  side  remained  essentially  the  same  as  when  no  C3/D 
occurred  for  either  side.  They  are  similar  because  of  the  large  number 
of  potential  delivery  systems  available  at  each  echelon  and  the 
restricted  nuclear  combat  being  played;  that  is,  the  number  of  potential 
nuclear  targets  remained  small  with  or  without  C3/D. 
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Figure  13 


20 


18 


Figure  14. 


Reduced  nuclear 
delivery  system 
availability  for 
corps-sector  echelon 
due  to  C3/D. 
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Figure  15.  Reduced  nuclear 
delivery  system 
availability  for 
theater  echelon  due 
to  C3/D. 


6.3  Nuclear  Warfare — Influence  of  C3/P  on  Nuclear  Escalation 


This  series  of  sample  runs  involved  opposing  forces  engaged  in 
a  combined  conventional  and  nuclear  warfare  environment.  In  contra¬ 
distinction  to  warfare  described  in  section  6.2,  in  which  nuclear 
escalation  could  occur  at  the  beginning  of  each  12 -hr  cycle,  the  present 
section  includes  the  nuclear  escalation  authorization  delay  process  in 
which  a  desired  nuclear  escalation  state  is  reached  only  after  a  delay 
time  influenced  by  C3/D. 

The  sample  runs  were  made  for  the  simulation  in  which  both  side 
1  (blue)  and  side  2  (red)  suffer  cVd.  As  in  section  6.2,  the 
simulation  continued  out  to  twenty  12-hr  cycles  (10  days).  However,  in 
the  present  set  of  runs,  each  12-hr  cycle  was  subdivided  into  six  2-hr 
subcycles  in  which  possible  nuclear  escalation  could  occur.  This 
subdivision  defines  better  the  overall  escalation  delay  process. 

Figure  16  compares  the  FEBA  movement  in  sector  6  for  (1)  C^/D 
delayed  nuclear  escalation,  (2)  12-hr  nuclear  escalation,  and  (3) 
nonnuclear  combat.  It  is  seen  in  figure  16  that  the  C^/D  delayed 
escalation  process  greatly  constrains  nuclear  combat  compared  with  the 
12-hr  escalation  and  causes  the  C^/D  delayed  FEBA  movement  to  lie  in  a 
region  approximately  halfway  between  the  12-hr  escalation  and  nonnuclear 
combat. 
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Figure  16.  Forward  edge  of  battle 
area  movement  for 
different  nuclear 
escalation  processes. 


6 . 4  Target  Acquisition — Influence  of  C3/P  on  Target  Acquisition 
Processing  Delay  Time 

A  series  of  sample  runs  was  made  to  validate  the  code  changes 
in  the  TACWAR  model  used  to  increase  the  TA  processing  delay  time  due  to 
C3/D.  However,  the  augmentation  of  the  TA  processing  delay  does  not 
manifest  itself  in  any  overall  change  in  combat  results  since  the  TA 
delay  time  quantity  is  not  presently  used  in  the  other  TACWAR  routines. 
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7.  SUMMARY  AND  CONCLUSIONS 


The  TACWAR  theater-level  combat  simulation  model  has  been  augmented 
to  include  command,  control,  and  communications  degradation  effects  in 
four  important  areas  of  the  combat  simulation: 

Division  effectiveness 
Nuclear  delivery  system  availability 
Nuclear  escalation  authorization  delay 
Target  acquisition  processing  delay 

Sample  runs  made  using  a  benchmark  data  base  show  noticeable  changes  in 
overall  combat  results  (such  as  personnel  casualties  and  FEBA  movement) 
when  these  cVd  augmentations  are  included  in  the  simulation  (except  the 
TA  processing  delay  as  mentioned  in  sect.  6.4). 
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APPENDIX  A. — COMPUTER  CODE  CHANGES  TO  IMPLEMENT  TACWAR  AUGMENTATIONS  FOR 
COMMAND,  CONTROL,  AND  COMMUNICATIONS  DEGRADATION 
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APPENDIX  A 


This  appendix  contains  the  actual  computer  code  changes  that  are 
used  to  implement  the  TACWAR  augmentations  for  command,  control,  and 
communications  degradation  (C3/D).  Lines  of  new  computer  code  that  have 
been  inserted  into  the  original  versions  of  TACWAR  are  indicated  by  the 
mnemonic  I  JCI001  in  the  sequence  field  (columns  73  to  80)  of  the 
instruction  line.  Similarly,  lines  of  computer  code  that  have  been 
modified  in  the  original  version  of  TACWAR  are  indicated  by  the  mnemonic 
C  J3I001  in  the  sequence  field.  For  brevity,  the  long  common  block  that 
holds  the  dynamic  parameters  of  the  original  version  of  TACWAR  is 
indicated  in  any  computer  listing  as  COMMON/BBB/  enclosed  between  two 
lines  of  asterisks. 

The  appendix  has  five  sections  corresponding  to  the  four  major  areas 
of  augmentation  and  an  ancillary  or  general  area  of  augmentation: 

A— 1 .  Division  Effectiveness 

A-2.  Nuclear  Delivery  System  Availability 

A-3.  Nuclear  Escalation  Delay 

A-4.  Target  Acquisition  Processing  Delay 

A-5.  Input  and  Main  Control 

A-1.  DIVISION  EFFECTIVENESS 

This  section  partially  lists  those  subroutines  that  calculate 
division  effectiveness  factors,  namely,  FEBAMT,  GC,  TC,  and  TIMET. 


SUBROUTINE  FEBAMT 

C  FEBAMT  COMPUTES  FEBA  MOVEMENT  AS  A  FUNCTION  OF  FORCE  RATIO, 

C  POSTURE,  TERRAIN,  AND  MOBILITY. 

C  CALLED  BY  GROUND 

C  CALLS  CVFtf 

C0*©0000000©0©00©0©*©O©©0*»#*©******* 

REAL  NSUTDtNTSUDT, INTO A, IN  TOE,  INTOS 

0*©0000O0O0OO0000000O0000O000000O00O0O000000000000*000©000000*©©0©0©000000+0*©©© 

C0HH0N/BCB/ 

©0©©0  0  0000000  000  000©  0©  00*0  ©00©0  000©  000000  0  0  0  0  0  •  0  0  0  0  ©  ©0  ©  ©  0  0  ©  0  ©  0  0  0  0  0  0  •  0  ©  0  O©0  0  0  0  0  ©  »© 

C0HH0N/TNF  SC3/ NC3DD t Z I , XC30D < 8 , 2 1 , YC300 1 3 ,2 1  ,  I  JC I  001 

©  NC0MD(2),XC0MD|8f2J  ,YC0M0ia,2) ,  I  JCI001 

o  FC LWL ( ID , 2 1  I  JCID01 

C0HM0N/GCFH/  IWDfUW(8,2 1 
DIMENSION  VDDSFU4D  )  ,KVDDCIHD) 

DIMENSION  SUM H (ID  I  ,I5UMMC8I  ,ITDNDS«8I 
MOT  ~ JCON 
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5)  COMPUTE  EFFECTIVENESS  OF  All  DIVISIONS. 


IF  ( JPRD.NE.I I  CO  TO  15 
WRITE (MOT,  181  ICYCLE 

18  FORMAT!  *0  *  ,  * ***OUT PUT  FROM  SUBROUTINE  FEBAMT.  CYClE  *  *,131 
15  CONTINUE 

SKIP  THIS  SECTION  IF  SECURITY  FORCE  RATIO  IS  NOT  TO  BE  USED 
IF ( IUSFRC.EU.D I  GO  TO  599 

WVDDC  =  ACTUAL  DIVISION  WEAPON  VALUE  ON  DEFENSE 
PP  5  =  DIVISION  FRACTIONAL  PERSONNEL  STRENGTH 
OSH  =  DAYS  SUPPLY  ON  HAND 
N2  =  0 

L1MSN0(1I+ND(2I+HAD (11+MADC2I 
DO  500  IDXI*LIM 
WVCDC(ID)*0. 

£F  FDD ( I D )  =  0. 

VDDSF ( 1  D I  =  0. 

500  CONTINUE 

DD  550  L  =1  ,2 
NI  M*N2 
N2  5  N  2  *ND  (L  I 
N3  =  N W ( L  I 
00  5 2 D  1  D *=  N I  ,N2 
IT* I TDC I DI 
WVDDC ( 1 0 ) *  0 • 

COKD  *0 • 

DO  505  IVM.N3 

WVDDC  ( ID  I  * WVDDC ( 10 )♦ VI WOSF f I W , L I *W DI V f I W , I D I 
TOCW  =  TWD( IW,  IT  I 

IF ( TOE W .CT «0 • ICQMD*CQMD+FCLW LCIU ,L  )»WDI V f 1W, 1DI/T0EW 
505  CONTINUE 

PPS=POIV(IDI/TPO(ITI 
C  COMPUTE  PERSONNEL  EF F ECT IV ENESS 

CALL  CVFWCNEOE  Fill  ,XDEFU,L  I  , YOE  F  C  1,1 1  ,PPS  , PE 0) 

0SH=SDIV( JUJ/PCSU(JTJ 
C  COMPUTE  SUPPLY  E FF EC T I Vf NE 5S  FACTOR 

CALL  CVF  K ( NSE F  F ( 1 1 , XSEFF (1 «LI«YSEFFC1*L) ,DSH  f  SE  F I 
C....  COMPUTE  C  ^  0  3  DLGkAOATION 

CALL  CVF  W(NCUKDtl)  t  XCOMOC)  ,U » YCOMDU  9U  ,COMO.CCCDI 
C***.  COMPUTE .  C *  °3/D  EFFECTIVENESS  FACTOR 

CALL  CVFW(NC3DD(LI ,XC3DD(1 tL I , YC3DDI 1 , l J ,CCC0,EFFC3I 
C  COMPUTE  DIVISION  E F F EC T I VE NE SS  AND  COMBAT  VALUE  ON  DEFENSE 

EFFDD(ID)*EFFC3*SEF*AM JN1C (WVDDC ( I  0 J / WVDDT 5 f I T 1 1 ,P£0) 

IF  (I0MU.ED.3.0R.IDMU.E0.5I  GO  TO  6908 
tFFDD(10I*EFFC0(lDI+FDEFCPfIDI 
6908  CONTINUE 

VD05F  (ID)-£FFDD(ID)*WVDDT5fIT) 

520  CONTINUE 

N2=N2+MAD(LI 
550  CONTINUE 
C 

IFtIPRD.NE  .1)  GO  TD  599 
WR1TE(M0T,II7) 

N3*ND ( 1 ) +ND( 2) +MAD ( 1 ) 

DO  580  ) D-  1 ,  N3 
IT*ITO( IDI 

WRITE (MOT, 12 )  IO,WVDDC( ID)  ,WVDDT5 C IT  I , EFFODE I D > , VDDSF (I D > 
580  CONTINUE 
599  CONTINUE 


SUBROUTINE  GC 

C*  ••****««**»•**••**•*♦  +  +  ••♦•»•♦♦••• 

C  GC  COMPUTES  ATTRITION  TO  PEOPLE  AND  WEAPONS  CAUSED  BY  GROUND  FIRE 

C  AND  CAS  AND  ALSO  COMPUTES  WEAPONS  REPAIRABLE  AND  SUPPLY  LOSSES. 

C  CALLED  BY  GROUND 

C  CALLS  ElGENVfCVFWfMPRODtCNTRYC 

<;•••»»»»»»»»»»»*«*»*#»»•*•***#••#••• 

REAL  NSUTD , NTS UD T , I NTOA , INTDE , 1NTDS 


JCI001 


JCID01 

JCI001 


JCI001 

JCI001 

JCI0C1 

JCI001 

JCI0D1 


44 


o  o  o  o 


APPENDIX  A 


0OOft0OOOOO3OOd?ft09OOC»3O04dOOOO00O»00O60O0OO009OO00»«O00ft0ft0OOO000OO9*OO**O**»? 

COKMON/BBB/ 

00 0000 00 00000000 0000 000000000000 00 000000 00000 00000 00000000000000000000000000000 
CaMMCN/TNF5C3/NC3DD<2) , XC300 <8 ,2 ) , YC3DD l 8 ,2 ) ,  I  JCIOO 

*  NC0MD(2),XC0H0(8,2),YC0H0tB,2),  I  JC)00 

•  F  C  LWL ( 10  v  2 )  I  JCIOO 

COMMON/GCFH/  IWDRAW(B, 2) 

01  HENS  ION  ED  AX  SR  (200  ) , E D D X  SR < 2C0 ) , VO AC C 200 ) , VDDC ( 200  ) 

01  ME  NS  I  ON  W  S  t 10,2) ,  A  AW  A  1)0, 10,2) , AAWO  C 10,10,2), 

1  PWAKWt ID, 10 ,2) ,PHDKW<10 ,10,21 ,A Am A( 6 . 10 ,2 1 » 

A  A  AMD  (6,10,?),PAAKW(7,10,2) ,PACKW(7,10»2), 

2  BSUMtlOO)  tRSUH(  100 ) fVlWACF(IO ,2) , vrwOCFtlO ,2) . 

3  VI  AACFl  10  f2)  ,  V1A0CF  110,2)  .WVOATdO)  .TYPCAF 18  >  t7YPC0f  (8)  , 

4  V  LS ( 2 } .WVOOTt )0),WV0AC(  200) , WVODC  (200  ) , PCS ( 2 ) ,SUMM ( 10 ) # 

5  TSCt2),PLS(8,2),WlS()0t2> ,GKCS( 10,10,2), 

6  AKGSC7, ID ,21 , 1H0LD 12) 

DIMENSION  T5L (8,2) ,TWS(2) 

DIMENSION  WLDAS  (I  0,8,2)  ,CDACS(8,2) 

HOT  =  JCON 


4)  AO  JUS  T  THE  5TAN0AR0  ALLOCATION. 

THIS  SECTION  EXECUTEO  ONLY  ON  FIRST  CYCLE  OF  GAHE 
iFdCYCLE.NE.I  )  GO  TO  499 
00  450  Ist)  ,2 
N3 - N W { L > 

K  =  3-L 
N4  s  NW  CK ) 

N5  =  N AM  ( L  I  C  JCIOO 

00  430  KW= 1 , N4 

IF (PWSF (KW  ,K I  .EQ  .0.0 )  GO  TO  4)5 
00  405  )  W  =  1 ,  N  3 

SAW  A  l  1W,KW  ,LIsSAWA( IW,KW ,L )/PW5F(KW,K) 

SA wO ( I W , KW  ,L  )*SA WO(I W,KW,L ) /PWSF (KV,K) 

405  CONTINUE 

00  4  10  I  AH  * ) ,N5 

SAHA ( IAH,KW,L) 3  S  A  M  A ( ) AM ,KW , l )/PW$F (KW,K) 

SAHD  1 1  AM , K  W, L  ) >5 AMO ( I  AM ,KW ,L )/PWSF (KW,K) 

4)0  CONTINUE 
GO  TO  430 

415  DO  420  1  V=  1  , N3 

SAWA (  IW ,KW  , L )*  0.0 
SAWD (  1 W  t  KW  ,  L  ) >0.0 
420  CONTINUE 

00  425  I  AH  ■  1  , N 5 
SAHA ( (AM ,K W  , L )  -0  .0 
SARD  t  I A  H  ,  K  k  ,  L )  *0  .0 
425  CONUNUt 
430  CONTINUE 
450  CONTINUE 


00  2503  ) W  *1  ,N3 

WVOAT (I T )=WVOAT( IT) 4V(WACF( )W,L)*TWD( 1W, IT1 
WVODTOT  )*WVOOT(  ITMVI  WOCF  CIW,l)  •TWOCIW,  IT) 

2503  CONTINUE 

2504  CONTINUE 

DO  2525  1 0 S* N1  ,N2 
ID  =  ( DLAB A (  IOS.IS) 

I  T  *  I  T  D  (  I  0  ) 

WVOAC ( ( 0 1  *  0. 

WV00Cll0)*0. 

COHO  =  0 . 

OQ  2505  (W*1,N3 

WVOAC((0)=KVOAC(10)4V)WACF(I WtL)*W01VClW,ID) 

WVODC  Cl  0)*WV00C(  I0)*VIW0CF  C1W,L)  ♦W01VUW,  } o ) 

TOE  W*Tk'D  1 1  W, )T  ) 

(FCTOEW.GT  .0  .) C0H0  =  C0H04FCLWL11W,L  )*W0IVI1W, 10J/T0EW 

2505  CONTINUE 

C  CALCULATE  EFFECTIVENESS  OF  PERSONNEL. 

PPS=P0IV(I0)/TP0(IT) 


:  joooi 

X  JOOOI 
1  JC1001 
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CALL  CVFWCNEAEFiL!  t'XAEFC  I»L)  .  YAE F { 1 , LI , PPS, PE A  I 
CALL  CVFWINEDE  F( LI, XDEFtI,L I ,YDEFI1, LI , PPS, PEO> 

EDAXSR ( ID) = AM  INI ((WVDAC t IDI/WVDATC  ITI I *PEA1 
EDO  X SR  (  I  D  I  =A  M I N1  it WVDDC  i  ID  l/WVDDT  {  IT  }  )  ,  PE  01 
C  CALCULATE  EFFECTIVENESS  REDUCTION  DUE  TO  SUPPLY  SHORTAGE. 


D5H=SDI VIIDJ/PCSDIIT) 

CALL  CVFWINSEFFIL) , XSE F F { 1 f L I , YSEF F( 1 , L) , DSH , SEF I 
C....  CDMPUTE  C**3  DEGRADATION  I  JCI001 

CALL  CVFWtNCOMDlL)  ,XCCMD  (1  ,L),YCOHDH,LI  ,COMD,CCCDl  I  JCIOOl 

C....  COMPUTE  C«*3/D  EFFECTIVENESS  FACTOR  I  JCIODl 

CALL  CVFWI NC3DDI L) , XC3DD  1 1  ,L ) • YC3D DC  1 ,L ) ,CCCD ,EFFC3)  I  JCIOOl 

C  CALCULATE  DIVISION  EFFECTIVENESS  AND  GROUND  VALUES 

EFFDA(ID)sEFFC3*SEF*EDAXSMID)  C  JCIOOl 

EFFDDIID)-EFFC3*5EF*EDDXSRII  D)  C  JCIOOl 


IF( IOMU-EO-3.OR.IOMU.EQ.5J  GO  TO  69D8 
EFFDA  tID)  =  EFFDA< 1 0 ) *F DE FCP  (  I  D  ) 

EFF DD  1 1 D  I  *  EFFDD ( ID) »FDEFCP  CIO) 

6908  CONTINUE 

VDACt ID) =EFFDA  C  ID )  *  WVDAT  C  IT  I 
VDDC(ID) =EFFDD(ID)°WVDDTt)T) 

VGA  BA { I SiL l-VGAPAII S,L I ♦VD AC  1 1 D) 

VGD8A(IStL)sVGD6A(IS,L)+VDDC(ID) 

C 

IFdPRD.NE.il  GO  TO  2525 
WRITE tMOT, 110) 

WR  I TE  (MOT  ,  ID  I  )D,IT 
WRITE IMOT, III) 

WRITE  (KOT,  22)  WVDAC  (  )D  I  ,  WVDDC  (  ID  >.,  WVD  AT  C  IT )  ,  W  VDD  T  l )  T  ) ,  EDAX  SR  1 1 D  )  , 
X  EDDX5R I  ID) ,EFFDA(ID I ,EFFDD  (ID) » VD AC  t ID ) ,VDDCt )D) 

WR  IT  E  IKQT ,1)21 

WR I T  E I  HO  T , 22  )  PE  A, P E D , D SH , SE F 
2525  CONTINUE 
2530  CONTINUE 

IF  OPRU.fJt  .))  CU  TO  3000 
WRITE  CHUT ,113) 

WRITE  (MOT  ,22  I  C  C  VGABA  ( I S  ,U  ,  VGDBA  ( IS  ,1 1 1  ,L  ■  1  ,21 

C  30)  CALCULATE  AIR  VALUES  ON  ATTACK  AND  DEFENSE 

3000  DO  302D  L=),2 
VAAB A ( )  S  ,L  )  >  0  • 


SUBROUTINE  TC 


SUBROUTINE  TC  IS  THE  MAJOR  THEATER  CONTROL  PROGRAM  AND  HANDLES 
A  MAJOR  PORTION  OF  THE  BOOKEEPING  EFFORT  REQUIRED  BY  TACVAR. 

CALLED  BY  TWAIN.  CALLS  AIRASG,  APORTN,  CNTRYC,  CVFW,  IIBA,  MSREAD, 
M5WRIT,  NX  D I  V ,  SECWTH,  TAG 

ALSD  CALLS  2ND  HALF  OF  ORIGINAL  ROUTINE  tTCXX) 


REAL  NSUTD ,NT5UDT , I NTD A , INTDE,  INTD5 


cuMHON/nnh  / 


C0MM0N/TNFSC3/NC3DDC2) , XC3DD t 8 , 2 ) , YC 3DD ( 8 ,2 ) ,  1  JCIOOl 

NCUMDt2),XC0MDt8,2),YC0MD(8,2) ,  1  JCIOOl 

FCLWLI1D,2)  I  JCIOOl 

COMMON/TCQ/SDD I V  1 1 40  I , S D SN ( 9  5 ) ,S D A 8F 5 1 8 ) ,SDABRSC8) , 

ITESC 18, 6) , I TEML(8 ,3,2)  , 

IWOKKII30),IWORK213D),I WORK  1 30,2) , RWNABA (10,1,2), 
RPNABA(1,2),VDDSF(1A0), SUMM (10),WNDABA(10,140), 

PNDAOAIIAO) ,1DDABAII4D)  , 

S TO R113, 8,2), ST  OR  2(3, 0,2), 

I AB  AST  I  8  I  , 

DISTBPI0) , FRA CD  5(8) ,P2LQNG(8), 

WVDDC II 4D ) .WVDACI1401 , I RDABA 121 , TNND I VllO ) » 

SUNDIVI7) , SU A  (7 ) 

DIMENSION  AS  I D  E ( 2) 
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451  COMPUTE  EFFECTIVENESS  OF  ALL  DIVISIONS- 


N2  '  D 

C  FOR  EACH  SIDE  L  DIVISION 

DO  455D  L*  1  r 2 
N1  =  I ♦  N2 
N2  *  N  2  *N  D  IL  ) 

N3«Mfc U  ) 

OD  <<520  I  0  *N  l  *  N2 
II  *  I  U't  It') 

WVDAt l I D ) *  0 . 

HVDDC J ID  )*D. 

CDMD  =  D •  I  JCIDD1 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE . 

DD  A 5D5  I W  =1 , N 3 

WVDAC  I )  D  I  *  WVDA C t  ID)  ♦VIWASF  ( lW«LMWDIVi  IV«ID) 

WVDDCt  ID  I  * WVDDC (  I D  )  V I  WDSF  ClWrLI  •WDIV)  IH»  ID  J 

TOEW^TWD  )I M, IT  )  I  JCID01 

IF ( TCEW.CT -D -)COMD*OJMD4FCLVL ( IW f L I*WDIV(1W, IDI/TOEW  I  JCIDOl 

45D5  CONTINUE 

C  USE  PERCENT  PERSONNEL  STRENGTH  IPPS?  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE- 

PPS=PDIV(IDI/TPDMTI 

CALL  CVFWINFAEFtL)  ,XAEM  1 ,  L)  *YAEF  (  1  ,L  I  .PPS.PEAI 
CALL  CVFW(NEDEF)U»XDEF  (  I  ,  L  )  ,YDE  F  (  I  ,  L  J  ,  PPS  ,  PE  D  I 
C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 


DSH-SDIV  (I D)/PCSD( IT  I 

CALL  CVFWCNSEFFIL) .XSEFF  II  , L I , YS E F F II t L I t DSH t SEF ) 

C....  COMPUTE  C»«3  DEGRADATION  I  JCIDDI 

CALL  CVFWINCOMDI L) . XCDMDll ,L  )  , YCOMDI l ,L J  *COMD  ,CCCD )  I  JCIODl 

C....  COMPUTE  C**3/D  EFFECTIVENESS  FACTOR  I  JCIOOI 

CALL  CVFW(NC3DD(U,XC3DDCI  ,U,YC3D0n?UfCCCDfIFFC|)  1  JCIDDI 

C  COMPUTE  IFFFCT  IVENESS  OF  DIVISION  (IN  ATTACK  AND  ON  DEFENSE. 

tFFUAMUIslFFC345EF  9  AM  INK  IWVDAC  t  I  D)  /WVDAT  S I  1 T 1 1 rPt A I  C  JCIDOl 

EFFDDtlDJ*EFFC3*S6F®AMINl( fWVODC()D]/WVDDTS( IT ) ) *P£DJ  C  JCIODl 

IF  I ILiMU .  E  Q  .3.0R.IDMU.E0.5J  GO  TO  6908 
£FFDAUD)*£FFDAOD)*FDEFCPC)Dl 
EFFDD JIDI-EFFDD1 ID)«FDEFCP (ID  I 
69D8  CONTINUE 


C  9D I  COMPUTE  E FF ECT 1 VENES5  OF  DIVISIONS  AND  ORDER  DIVISIONS  IN  FIRST 
C  INACTIVE  8ATTLE  AREA  ACCORDINGLY. 

N2  =  D 

DD  9D5D  L  = I » 2 
N I *1 *N2 
N25  N  2  *N  D  ( L J 
N3  =  NK  (L  I 

C . DETERMINE  EFFECTLESS  OF  DIVISION  ON  ATTACK  AND  DEFENSE. 

DO  90  2D  I D  *N I r  N2 

IT-ITDIIDI 

WVD  AC  1 1 D I - D • 

WVDDC 1 1 D I *D. 

CO  M  D  =  D  . 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE. 

DO  9 DCS  IK«I • N 3 

WVDAC  IIO  J«WVDACI  IDMVIWASF  II W  ,  L  J  *W  D IV 1 1W  ,  ID  J 
WVDDC  l  ID  )  =  WVDDCt I D I ♦ VI WD SF C I W , L I *W DIV 1 1 W , I D I 
TOEH  =  TWD(IWr IT  I 

IF  I TLEW.GT  .D.  IC0MD*C0MD4FCLWLIIW ,L  1«KDIVCIW, IDI/TOEW 
90D5  CONTINUE 

C  USE  PERCENT  PERSONNEL  STRENGTH  JPPS)  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PP5  =  PDI VI  I DI/TPD II T I 

CALL  CVFW(NFAEFIL)*XAEF(lrLI?YAEF(l»LI rPP5,PEA7 
CALL  CVFW(NEDEFILIfXOEF(I,U,YDEFII#lI#PPS,PED) 

C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 

DSH=SDIV() DI/PCSDIITJ 

CALL  CVf  WJNStFUU  .XStFFU  ,1)  »  YSl  F  F  7 1  »U  .DSH  •  SI  F  7 


1  JCIODl 


1  JCIDDI 
I  JCIOOI 
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C....  COMPUTE  1**3  DIGMOATIUN  !  JCIOOl 

CALL  CVf  K(NCUHDCl)  fXtUHOCl  ,U  ,YCU«OCl,U  tCnMD.CCCOI  I  JCJOOI 

C....  COMPUTE  C**3/D  EFFECTIVENESS  FACTOR  I  JCIOOl 

CALL  CVFKC  NC  30D ( L)  »XC30U(1  »L)  *YC 300(1  *L),CCC0*CFFC3)  I  JOOOl 

C  COMPUTE  IFFtCT  IVIN ESS  OF  OJVJSJON  ON  ATTACK  ANO  UN  DEFENSE. 

EFF0AtID)  =  EFK3*Sf  F*AMINlt(WVUACI  )  0)  /WVDAT  S  (  IT  J)  ,PEA  J  C  JCIOOl 

EF FDD  1 1 0)  =  EFFC 3*5E F*AM IN  1 1 (WVDDC ( I  0) /WVOOTS I  IT ) )  ,PEO)  C  JCIOOl 

) F ( I OMU .10 . 3 .OR . I0HU.EQ.5)  GO  TO  6909 
EFFOA(lOJ*EFFDACIDJ«f OCFCPCIOl 
EFFDD(IO)*f.FFOD<  ID)*FOEFCP(  )0) 

6909  CONTINUE 


SUBROUTINE  TIMET 
THEATER  CONTROL  ROUTINE  FOR  1/0 

TIMET  PROCESSES  ALL  RESOURCE  CHANGES  THAT  OCCUR  DURING  THE  WAR 
CALLED  BY  TMAIN 

CALLS  ASSIGN,  MSREAO,  MSKR1T,  CVFW 


C 

C* 

C 
C 
C 

C* 

REAL  NSUTO  .NTSUDT, I NTDA , INTOE . INTOS 
COMMON/BBB / 


«  0  3 


000000033 


ooooooooooooooooo 


DIMENSION  IRECI21),ZREC(21),ZEP0(1 ),1VALI15) .ZVALI15) 

COMMON/ TNF  SC  3/ NC 30  0  12) , XC300  IB  ,2 ) , YC 300  I  8 ,2 ) , 

*  NC0MDI2)  ,XCOMD(B  ,2)  ,YC0M0I8,2)  , 

»  FC  LWL 110 , 2  I 

EQUIVALENCE  C IRFCll ) ,ZR ECC 1 ) ) , ( ION , I  RFC  1 1 J )  , C IFN, 1REC (2 ) I , 

*  I KBA  , I K EC  (8  ) )  ,  <KREG,IRECC10) ) ,<KSA, IRECI9) ) ,( IT,IREC17)) , 

*  (IREClMtllDIt 

►  I ICOOE , 1REC  <3 ) ) ,(l ST, IREC (A) ) ,(ITO, IRECC5) ) , CllNC, IRECI6)) t 

*  ( IVALC1 ) ,  IR EC  17)1  .(lVAlCn.ZVALCl  ))  ,  INEPOC 1)  ,ZEPO  (11 J 
ITT  =  1TT0 

ITT* 1 5 


10)  READ  TlME-T  INPUTS 


1  JCIOOl 
1  JCIOOl 
1  JCIOOl 


WV  DO  s  0 • 

COMO=  0 • 

DO  910  1 W*  1 , MM 

WV  00s  WVDD*  V I WD  SF ( 1W, L) *WD1 VI 1W,1 10  ) 

TO  EW  *TWD  1 1 W , I T ) 

IF  (TCEW-GT  .0-)C0MD=C0MD  +  FCLWLUW,l  )»VDIV(2W, )  101 /TOE W 
910  CONTINUE 

C  COMPUTE  01VISICN  E F FE CT 1 VE NE 5S 

PPS=POIV(I  IDJ/TPDC1T) 

CALL  CVFW(NEDEFIL), XOEF (1,1) ,  YOE F Cl  ,L 1 ,PPS , PE  0 1 
DS  H- S  D I  V  I  1  I D I / PC  SO  I  IT) 

CALL  CVFWINSEFF(L) ,X5EFF(1,L) , Y5EFFC1,L) ,D5H,5EFI 
C....  COMPUTE  C**3  DEGRADATION 

CALL  CVFWINCOMDI L) .XCOMDll , L 1 , YCOMD 1 1 , L 1 ,COMD ,CCCO I 
C....  COMPUTE  Ca  *3/0  EFFECTIVENESS  FACTOR 

CALL  CVFWCNC3DDIL)  ,  XC300<1  ,L  1,  YC3DDU  , L 1  ,CCCD ,EF FC3 ) 
BFFOOCI ID)  *E FFC3*SEF*AMIN1 I ( WVOD /WVODTS  C IT)  )  ,PED) 

IF ( IUMU.E0.3.DR. 1QHU.EQ.5)  GO  TO  690B 
EFFDOII 10) =EFF00(11D) oFOEFCP II  ID ) 

6908  CONTINUE 

C  ASSIGN  DIVISION  TO  A  PARTICULAR  LOCATION  IN  THEATER 

CALL  ASSIGN! ID N , 1 1  0 , KB  A , KS A , KR EG , L I 
1BALD  II 10) *K8  A 
NDI0A(KSA,L)=NOI8A(KSA,L)-*1 
J=NDI8A(KSA,L) 

10LIBAI  J,K5A,L)  =  II0 
GO  TO  87 
81  CONTINUE 
RETURN 
END 


I  JCIOOl 


I  JCIOOl 
I  JCIOOl 


I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
C  JCIOOl 
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A-2.  NUCLEAR  DELIVERY  SYSTEM  AVAILABILITY 


This  section  completely  lists  subroutine  DSDEG,  which  determines  the 
several  delivery  system  degradation  factors;  subroutine  NUCCCD,  which 
determines  the  C^/D  factors  of  airbase  assets;  and  function  NWHINV,  in 
which  the  delivery  system  degradation  factors  are  used*  Also  included 
is  that  portion  of  subroutine  DAMEVL  that  is  modified  to  include 
adjustment  to  actual  airbase  operating  capabilities. 


SU8R0UT1NE  DSDEG 

C  I  JC1001 

c  dsd£g  determines  the  fractional  decrease  in  division,  sector*  AND  I  JCIDOI 

C  THEATRE  WEAPONS  SYSTEMS  BASCO  OF  DECREASES  IN  DIVISION*  SECTOR  I  JCIODI 

C  AND  THEATER  ASSETS  SUCH  AS  WEAPONS  SYSTEMS*  SAM  SYSTFM5*  55M  I  JCIDOI 

C  SYStLMS,  AND  AIRDASLS  I  JCIOOI 

C  '  I  JCIDOI 

REAL  NSUTD .NTSUDT, INTDA  ,  INTDE , 1NTDS  I  JCIDDI 


O90OOOO0OO99OCOOO9O9OO90OOOd?9O9OOOO99993999999999999099O99900O9O9O0O909O9OO99C9 

COMMON/ 3 86  / 

0i>*00O*09003O9OO0090OO00490009O999O99O909O99090009999099099999#00909909999e90099 


CO  MM  ON/ TNF SCI/ INABF(8,2) ,INA8R (8 ,2), 1  NAB  2(2) 
C0MMCN/TNFSC2/NC3SDC2) ,XC3SD  (8  .2 1  ,  YC3SD  ( 8  ,21  , 

*  FDDSAD(8 ,2  1 , FSDSADC8  ,21 ,FT0SAD (8,21  , 

0  FABDCC  C  2J ,AB5FCC(8 , 2  ) , A  8 SRCC ( 8  ,  2 1 ,ABC2CCt2) , 

*  FSSMCC121 , TSSMIRC8,2I,SSSMIMC8,2I,SSSM1LC8,2I , 

*  FSAMCCC2) ,TS AMIR (3,2 J,T SAMI  2(2  I  ,SS AM  IF (3,2  I 
COMMON/ TNFSC3/NC3DD (21 ,XC3DD (8 ,2 1 , YC3D0 (8 *2 1 , 

e  NCOMD (2J ,XC0MD (8  ,2) ,YC0MDI8  ,2) t 

e  FCLWL(I0,2J 

C0MMON/TNFSC4/NCDLY (2)  ,XEDLY (8  ,21  ,YEDLYI8 ,2,2 ) , 
o  JESC(8,3t2l,lWAUT(8,2I,IFPLS(8,21, 

o  TEOPD (2)  ,SEQPDI8  ,21 ,CT 1MEC8,2! 

RE  A  L  °8  A  ST  YF  ( 3  I 
DIMENSION  AS  1 D  E ( 2) 

OATA  ASTYP , ASIDE/* DIVISION*,  'SECTOR  * , 'THEATRE  ’ , ’ BLUE p  ,  PRED  ’/ 
MOT  =JC0N 
00  2  L- X  ,2 
TE0PD(L)s0  . 

2  CONTINUE 

00  5  15=1, NS 
NRR  =  D 
NO  2  =  0 

00  10  L  c I  ,  2 
NW  S  =  N W  C  L  ) 

NRT  =  NR ( L  ) 

DO  15  I  R  =1 ,NRT 
IRT  =  IR  +  NRR 

IF(IS.LE.NH5RCIRT))GOTO  16 
15  CONTINUE 

WR 1TE 16  ,90DD  I 

9000  FORMATC  M*  ,’NONRECOVERABLE  DATA  ERROR  -  SECTOR/REGION 

*  ’INCOMPATIBILITY  IN  SUBROUTINE  0SDEG*! 

STOP 

lb  CONTINUE 

FI =  F A  3DCC ( L) 

F2=FS5MCCiL) 

F3  *F  SAMCC ( L ) 

SUM : f  2*F  3 


I  JCIOOI 
I  JCIDOI 
I  JCIDOI 
I  JCIOOI 
1  JCIDDI 
I  JCIDDI 
I  JCIOOI 
I  JCIODI 
1  JCIDOI 
I  JCIODI 
1  JCIDDI 
I  JCIDOI 
1  JCIODI 
I  JCIODI 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIODI 
I  JCIOOI 
I  JCIODI 
1  JCIOOI 
I  JCIDOI 
I  JCIOOI 
I  JCIOOI 
I  JCIDOI 
1  JCIOOI 
I  JCIDDI 
I  JCIOOI 
I  JCIDDI 
I  JCIDDI 
I  JCIDDI 
I  JCIDDI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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If  (INAGR(IStl)  .GT.O.ANO.JNABZIL)  •GT.0JG0T0  17 

I 

JC  1001 

IFClhABMlSfLI.GT.O  .OR  .  INA  B  Z  tl)  .GT  .0  I  GOTO  19 

I 

JC I 001 

F)*0. 

I 

JC  1 001 

F2«F2/5UM 

I 

JC  1 001 

F3*F3/5UK 

I 

JC 1 00 1 

CDTn  17 

I 

JC I 00 I 

19 

fpfmfi 

I 

JC I 00 ) 

17 

ETD*0.5*FI  MABSRCC)  )S«L)«ABCZCC)L)  )«F2*SSMSRS  ( IS  tl  1  /TSSM  )R(  )5 1 L 1  ♦  I 

JC I 00 1 

• 

0.5*F3°(ALft SR Ilt)R*l)/T SAMIR)  IR  .LMALRSZU  ,  U/TSAM)Z(  U  1  I 

JC  1 00 1 

Tf  UPD<L)*UlPOUmiD 

I 

JC  1 00 1 

FI SF ABDCC l L ) 

I 

JC  1 00 1 

F2  s  F  S5MCC  C  L I 

1 

JCI001 

F3  =  FS AM  CC ( L I 

1 

JCI001 

SUM  =  F  2*F  3 

1 

JCI001 

IF( I NABF( I S,LI  .GT.DJGOTQ  21 

I 

JCI001 

FI  *0. 

I 

JC  1 00 1 

F2«r 2/5UM 

I 

JCIOOI 

F  3  »  F  3 /SUM 

I 

JC  I 00 1 

21  ESO  =  F1*ABSFCC  (IS,L)  4  F3»BMR5 tl * IR* U /SSAM I F «IR,L) 

4 

1 

JCIOOI 

*  0.5*F2MSSMSFSC1, I  S  ,L  )/ SSSM  IM  ( IS  ,  L  l+SSMSFS  (  2  ,  IS  ,L  ) /SSSM  IL  US,  L  )) 

JCIOOI 

SECPDIIS,LI=ESD 

1 

JCIOOI 

EDO  =  0  . 

I 

JCIOOI 

IF ( NDS( I S • L 1 •LE.DJGOTO  18 

1 

JCIOOI 

N01*1*N02 

1 

JCIOOI 

ND2 - ND2  +  ND  S I  IS,L  ) 

I 

JCIOOI 

00  20  I 0S-ND1 ,ND2 

I 

JCIOOI 

1 0  *  I DLAB A (  IDS,  ISI 

JCIOOI 

IT  *  I  TO ( 101 

I 

JCIOOI 

DO  22  ltf»l»NWS 

I 

JCIOOI 

TOE  H -TKD  ( I W, IT  ) 

I 

JCIOOI 

I F ( TO  E W .GT  .0.)  ED0cEDD4FCLWLUW,L)*VDIVtlW,)0  )/T0EW 

1 

JCIOOI 

22 

CONTINUE 

I 

JCIOOI 

23 

CONTINUE 

I 

JCIOOI 

EDD*EDD/ND5( IS  ,L  ) 

I 

JCIOOI 

IB 

CONTINUE 

I 

JCIOOI 

EDD=5QRT (E0D*E5DI 

1 

JCIOOI 

CALL  CVFW!NC3S0(L),XC3S0U  ,  LI  ,  YC3S  0 1 1 ,  LI  ,  EOD  ,  SDEO  ) 

I 

JCIOOI 

FODSADt IS,L) =  S  DE  G 

JCIOOI 

CALL  CVFWCNC3S0CLI , XC3 50  (1  ,L) ,YC3SDtl,L I »E5D»5DEG1 

I 

JCIOOI 

F  SO  5 AD ( IS, LI-SOEC 

I 

JCIOOI 

CALL  CVFWINC3S0(L), XC3SD (1,1), YC 350(1, LI ,ETD , SOEOI 

I 

JC  1001 

FTOSAOI IS,LI-S0EG 

I 

JCIOOI 

NRR* NNR  +  NR (L  ) 

I 

JCIOOI 

10 

CONTINUE 

1 

JCIOOI 

5 

CONTINUE 

1 

JCIOOI 

00  3  L- 1 ,2 

1 

JCIOOI 

TEQPO(L)sTEQPD(LI/NS 

) 

JCIOOI 

3 

CONTINUE 

1 

JCIOOI 

IFCIPRS.NE  .1IGDT0  50 

1 

JCIOOI 

WRITECMOT, 1001  ICYCLE,INCYL 

r 

JCIOOI 

00  AO  L  =  1 , 2 

I 

JCICOl 

WR ITE (MOT, 101) ASIDE (L) , ( IS,I5«1,NS) 

1 

JCIOOI 

WRITE (MOT, 102) ASTYP(l) , ( FD05AD ( I 5 , L ) , I 5*1 ,NS ) 

I 

JC  1001 

WRITECMOT, 102IASTYP(2I , ( F50S AO ( I S, L ) , I S«1 ,NS ) 

I 

JCIOOI 

WRITE  tM0T,l02)ASTYP 13) , I  FT  OS AD ( 1 S , t ) »1S*1,NS) 

I 

JCIOOI 

WRITE(MOT,103I 

I 

JCIOOI 

40 

CONTINUE 

I 

JCIOOI 

50 

RETURN 

l 

JCIOOI 

100 

FORMAT! •  1*  ,*T ABLE  N2 A  C YCL E • ,2X , 14 , I 8 X , 'DELIVERY 

SYSTEM  *, 

1 

JCIOOI 

•  ' DECRADAT IUN  FACTORS  DUE  TO  CCC  0 EGR AD AT I ON */ 10X , • 

SUBCYCLE*  , 

I 

JCIOOI 

*2X,I4/IX,I I9IIH-I) 

I 

JCIOOI 

101 

FURMAT) *  0 ' *  A A , *  S I D t • , 5X , 1 5 E CTOR * , 6X , 8  I  1 2 , OX ) / 5 1 2H 

-)) 

I 

JCIOOI 

102 

FORMAT ) ,0* ,A8, *  5Y 5 T EM  * , 8X , 8  I F 7.3 , 3X ) I 

I 

JCIOOI 

103 

FORMAT)////) 

I 

JCIOOI 

END 

I 

JCIOOI 

50 
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SUBROUTINE  NUCCCO  I  JCIOOI 

•  JCI001 

NUCCCO  DETERMINES  THE  C*®3/0  FACTORS  FOR  A I R8  ASE  ASSETS  AT  THE  I  JCI0O1 

ENO  OF  EACH  NUCLEAR  /  CHEMICAL  SUBCYCLE  I  JCIOOI 

44 4 4 4444 4444 04 4443 • 4 404 4 44 44 44 4444 0044444 4444444 4444 4444444 44 44 444 1  JCIOOI 

REAL  N5UT0.NTSU0T, INTOA , INTOE, INT05  1  JCIOOI 


C0MH0N/8B8/ 


C0HMUN/TNF5C1/1NABF 1 8 , 2  1  ,  I  NA  8R  18  ,  2  )  ,  IN  A  8  Z  12  ) 
C0MMCN/TNFSC2/NC350(2I , XC3S0 (8 ,2 ) , YC3S0 1 8 ,2 ) , 

•  FOOSA018.2) ,FSO$A0(B  ,21 , F T05A 0 < 8 ,2 ) , 

•  FA80CC 12) , ABSFCC  1 8 , 2  1 , AB SRCC 1 8 ,2 1 , A8CZCC (2 ) , 

•  F5SMCC12) ,TSSHIRIB ,2),SSSHIM18 ,2) ,SSSHIL(8 ,2), 

•  F5AMCC 1?) ,TSAM1R(3,2),T5AH1Z(2) ,55 AH  IF (3,2) 
COMMON/TNF  SC3/NC30D ( 2 ) ,XC300(8  ,2  I , YC 300 ( 8 , 2  1  , 

•  NC0MDI2I ,XC0H0<8,2) ,YC0H0(B,2), 

•  FCLWL (10,21 
RE AL *8  ATY  P ( 3 ) 

01  MENS  1  UN  NNA8F (8,21 ,NNA8R18 , 2  I , NN ABZ 1 2 1 , 1 OPTH (7 1 , I S 1 0 { 7 ) 
0IMEN5I0N  AS  1 0 E 1 2 ) 

OATA  A  T  Y  P  / * FOR  KARO  REAR  *,»  COHHZ  V 

OATA  ASIOE/'BLUE *, ‘REO  •/ 

OATA  NNA8F,NNA8R*NNA8Z/34*0/ 

OATA  10PTH  /3, 2, 1,4, 1,2, 3/ 

OATA  IS  1 0  /2 ,2  ,2 ,0,1, 1 ,1/ 

MOT* JCON 
OO  2  L  =  I  ,  2 
NNABZ (L I =0 
ABCZCCCL 1  =  0. 
oa  3  15=1, NS 
NN ABF  1 1 5 ,L  1=0 
NNA8RtIS,L)«0 
ABSFCCC I5,L)*0. 

A8SRCC1 I5,L)=0. 

3  CONTINUE 

2  CONTINUE 

CALL  TAG1NBA,NS, lA5AStNOFA8,NORAB, ISTAT) 

00  9  1=1, NA8 
I WOR  0 ( 1 3  ,  I 1=100 
1W0R0 ( 14,1  1  =  100 
IOC  =  I AF  8  A 1  I  ) 

I  $  =  K  OD ( LCC  — 1 ,NS ) *1 
IST=1STAT1 LCC1 
L *  1 5  I  0 1  1ST  I 
M=IOPTH(IST) 

GO  TU  lb, 7, 8, 9), M 

C  Ot  GSR  I , R , C  *  0  F  GRAD EO  OPERATING  CAPABILITY  PER  NOTIONAL  BASE 
C  (FORWARD, REAR  OR  COMHZ)  •  SUM  OF  OP.  CAP.  OF  ACTUAL  BASES  IN 

C  SC  C  I  Ok  U  I V  I  OF  D  BY  NO.  ACTUAL  BASES 

6  ABSFCC  (1 5,  L  J  *  A  BSF  CC  ( I  S .  L  MOCNUCU  I 
NNA8F1I5,LI  =  NNABF(I5,  LMI 

G0TU9 

7  ABSRCCOS.L  )=AB5RCC(  IStU’OCMJCC  j  j 
NNABkUS.l  )  =  NNA(jR(  IS,LM  I 

GUTU9 

8  ABCZCC(L)*ABCZCC1L) «QCNUCtl ) 

NNABZ  1L ) CNNAB Z 1L )♦ 1 

9  CONTINUE 


I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
i  jciooi 

I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
1  JCIOOI 
1  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
1  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
)  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JIIOOI 
I  JCIOOI 
l  JCIOOI 
I  JCIOOI 
I  JCIOOI 


00  5  1*1*2 
00  4  15=1, NS 
1F1 1CYCLE.GT.1 IGOTO  10 
INABF11S,L)=NNABF( IS, LI 
1NA8R (1S,L1=NNABR11S,L1 
INA8ZIU  *NN  A  B  Z  (  L  I 

10  CONTINUE 

IF  C  I  NAIM  1 1  S,U  .Lt.U  1  ABSFCC  (  lS,L!-0. 

IF (ZNABKClSfLl .LE .0  I A85RCC 1 1 S.LI»0. 

1F1NNA8FI 1 S,L1 .GT .0  I A85FCC C I  5 ,U «A 8SFCC f I S ,L > /NNA8 F €  1 5 ,L 1 
IF  I NNA8R  f  I  S ,  L  I  .GT .0  I  A8SRCC  ( I S ,  LI  *A 8SRCC 1 1 S  ,U/NN  ABR (  1  S  *L  1 
4  CONTINUE 


I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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IF  UNABZCU.LE  .0  1A3CZCC(L)  -0. 

IF  (NNA8ZIU  .GT  .0  )  A 8  CZCC  (  LI  *=  ABCZCC  (  LI /NNA8  ZtL  I 
5  CONTINUE 

IFIIPR5.NE .1 IGOTO  2D 
WRITE (MOT, I  DO  I  ICYCLE,INCYL 
00  *40  L  =  1  *  2 

WRITE (MOT , 1D1 1  AS IOE (LI ,( IS*IS*1,N5I 

WRITE (MOT, ID2IATYPII I  ,  (  (  NN  A8  F  t  IS  ,L  I , AB5FCC tl 5 ,U I ,15-1, NS) 

WRITE  CMCT,  102)ATYP(2I,(INNABR(IS,L),AB5RCC(IS,LI  l,IS-l,N5I 
WRITEtKOT,  1021 ATYP(3) ,NNA8Z(L1  ,A8CZCC(LI 
4  0  CONTINUE 

20  CONTINUE 

RETURN 

IDO  FQRKATIM*, •TABLE  Q1  CYCL  E  *  ,2X,  T4  ,18X,  »A  I  RBASE  DEGRADATION  •, 

•  'FACTORS '/ 10 X, *5UBCYCLE»,2X*IA/1X,119(IH-I ) 

101  FORMATi 'O' ,A4,  •  SI 0 E », 5X , »SE CTOR ’, TX , 8 (1 2 , 1 0 X ) /5 ( 2H  -I,13X, 

•  8  (  '  X  •  ,  2X  ,  '  DE  OR  ADE  0  MI 

102  FORMATI *0 • , A  8 , ' A  I R 8 A5E S * ,6X , 8 { 1 2 ,2X, F5 .3  ,3X I  I 
ENO 


I  JCI001 
I  JCI0D1 
I  JCI001 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCI001 
I  JCIODI 
I  JCI001 
I  JCIDDl 
I  JCID01 
I  JCID01 
I  JCIOOl 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCIOOl 
I  JCIODI 


FUNCTION  NWHINV(IWC,IWS,RI YD  ,1 POS, IS ,t ,  1FLAGI 
C 

C 

C  ROUTINE  ESTABLISHES  THE  CURRENT  INVENTORY  FOR  K  I Y  D  YIEL05  FOR 

C  EACH  WEAPON  CATEGORY  IN  POSITION  IP05  IN  SECTOR  IS  FOR  5IDE-L, 

C  IT  ALSO  ESTABLISHES  THE  MAXIMUM  NUMBER  OF  ROUNOS  WHICH  CAN  BE 

C  FIREO  FROM  A  GIVEN  POSITION  ANO  RETURNS  THE  SMALLER  OF  THE 

C  TWO  VALUES  AS  THE  NUMBER  OF  R0UN05  AVAILABLE. 

C  FUNCTION  NWHINV  IS  CALLEO  BY  NUCWP5  AND  PREYLD. 

C 

c 

C  00  0,0  00  900  000  9  00000900  099900  00  00000000009000  0000  00,00  000,000000000 

c 

REAL  NSUTD  ,N T 5 UO T , I NTDA  ,  IN  TO E ,  INT 0 S 

OO,„009000  00O90  0000O0  90OO900  990  0  3  00O3O0  00  0O0  0O00  9  00  00  00000  0  0O,00O00O9000000  9„0 


COMMON/8  86/ 


COMMCN/LOC AL 1/ AIWC ( 3) ,AS IDE  I  2)  ,N I W AS,NNI WAS ( 2 J ,NPT (7 ,4 ,30  I  , 

X  IWUD5  HOD  ,2  I  f  IWLCOT  (100,21  ,IWLT2N(  100  ,21 

1  ,  I W  LT  LO  ( 1  DO  t  2  I , I W  LB  T( 100,21 , I WL ( 100,21 ,WLYLD(100,2) 
X  ,X IVY (42,2) ,KIWYF (42,21 ,KIWYL(42,2) ,NNY05(2l 

2  ,WLCEP( 100,2)  ,1 WLH0BC100,2I 
COMKON/LOCAAl/NSFRO (4,2,2) ,N5FRSC 5,2,21 , 

1  N5FRT(5,2,2) ,NOT 

C0MHDN/AFSTF2/  AF0IM(22,4I 

COMKON/T NFSC2/ NC3SD ( 2) , XC3 SO C 8 ,2  I , YC3S0 C8 ,2  1 , 

*  F0DSAD(B,2I,FSDSA0(B  ,2)  , F T DS AD ( 8  ,2 )  , 

*  FABDCCm  ,A8SFCC  18  ,2  I  , ABSRCC ( 8 , 2  I , ABCZCC (2  I  , 

*  FSSMCCC2) ,TS5M I R(8, 21, SS5M!M( 6,2), 555M I LC8,2 I , 

*  FSAMCC  ( 2  )  ,TSAHIM3,2),T5AMlZ(2),SSAMlF(3r2) 

C 

C  CHECK  FOR  MULTIPLE  YIELD 

C 

IYO-KIYD 

IF (IOLYLOt IWC, IWStLI .EQ.1I  IYD^l 
LIS*L*2*(IS-1) 

C 

C  DETERMINE  WEAPON  CATEGORY 

C 

GO  TO  (100  ,200  ,300)  ,IWC 

c 

C  OIVISION  WEAPON  SYSTEMS 

C 

100  NWHINV=NOWHO(I W5,IYD,LISI*F0SP0S(1K5,1PQS,L> 

IF ( IFLAG.E0.2)  RETURN 
C 

NNWFIR  *  N0W5I(IWS,I5,LI*F0SP0S(IW5,IP0S,L)*KNFR0(IW5,LI* 

*  F0DSA0(IS,LI  -  NSFRDC  IV$»IPOS*LI 

IF  (NNWFIR  .LT.  NWHINV)  NWHINV  =*  NNWFIR 


I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCIDOl 


C  JCIOOl 
C  JCIOOl 
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C 

RETURN 

C 

C  SECTOR  WEAPON  SYSTEMS 

C 

200  NWHJNV=NSWHSllWSfIYOtLJS)*FSSPOSf)WStIPOS*L) 

IF  MFLAG.EC.2I  RETURN 

c 

NNWFIR  =  NSWSI  (lwSf)SfU*FS5P05<lW5f)PQS,U*HNFR5UW5,U* 

•  FSOSAOnStL)  -  NSFRSd  WS.IPOS.L) 

IFtNNWFIR  .LT.  NWH1NV)  NWHINV  *  NNWFJR 

C 

RETURN 

C 

C  THEATER  WEAPON  SYSTEMS 

C 

300  NWHINV*NTWHT  II  WS.IYD.L  I^rTSPOSUWS  *IP05*L1 
IF t 1  FLAG. E 0.2)  RETURN 
C 

NNWFIR  =  NTWSI tIW5*I5*L)*FT5P0Sf I WS *  I P05 *1 ) *MNFRTl I WS *L I  * 

•  FT  OSAO  (I S  »  L )  -  NSFRT (IWS»IPOS»L) 

IFtNNWFIR  .LT.  NWHINV)  NWHJNV  *  NNWFIR 

C 

RETURN 

C 

END 


Subroutine  DAMEVL 


00  775  I  AT  a  I  ,7 

c 

C . GET  NUMBER  OF  SHELTEREO  ANO  UN5 HELTEREO  A/C  OF  TYPE  TAT  IN 

C  PARKING  AREA  IPR  IN  OROER  TO  CALCULATE  ACTUAL  AIRCRAFT  ANO 

C  SHELTER  KILLS. 

C 

RS H  =  0  . 

NS  UM  *0 

00  750  I  AT  T  s I  ,  7 

750  JFt  IPSHLAt  IATT  »LI.LT.IPSHLA(IAT*L)  I  N5UM=N5UM-»NACTPA(IATT*IPRI 
IFINSUH.GT  .NSHPAIIPRI)  GO  TO  755 
R5H  =  M  I  N  0  tN5HPAtIPR|-N5UM*NACTPAt IAT, IPR) ) 

755  RNUSH  *  FLOAT ( NACTPA 1 1  AT  tIPR 1 1  *  R 5  H 

APOMCIAT)  «  APOM(IAT)  •*  RNUSH*  DA  MM  (JPA) 

APOM (I  AT )*APOM  1 1  ATI ♦R5H*0AM5 < JPA ) 

APOMM  1 1  AT )  =  APOMM ( I  AT  I  *  RNUSH* (OAMM  tJPA)  -  OAMA(JPAI) 

APOM  T  U  ATI  *APOMT  (I  AT  )*RNU5H*0AMA  (  JPA  MR5H*0AM5  ( JPA) 


775  CONTINUE 

C  SHELTERS  OE5TROYFO 

5HDK  a  SHDM  ♦  DAMS(JPA)  *  FLO  A  T  (NSHPAt  IPR)  ) 

5H0MT  *  5HDMT  ♦  DAMS (JPA )*FLOAT (NSHPAt IPR) ) 

7B0  CONTINUE 
790  CONTINUE 

ARHLF  =  20000000. 

OLKLC  *  ARC/ARHLF 
iFtOLKLC  •  G7  .  1.)  OLKLC  =  I. 

C  THIS  IS  NECESSARY  SINCE  LETHAL  AREA. MAY  COVER  MORE  THAN  AIRFIELO 

OLKLC  =  OLKLC*ARHLF*POENS5/IOOOOOO. 

CCTEM  «  CCTEM  ♦  ARC *PD E N SS / 1  000000  . 

CFTEM  «  CFTEM  ♦  ARL *POE N SS / 1 000000  . 

C 

C . PRINT  A  SUMMARY  OF  OAMAGE  INFLICTEO. 

C 

IF  (  I  PR  5  .NE.  I  )  GO  TO  60  16 

WRITE l I NU, 60 15)  KAB »DLKLL* OLKLC* (A  POM  II ACT  I » I  ACT* 1*7 1 *SHOM» 

•  T  HP  LOW 
6016  CONTINUE 

c 

C . UPOATE  NUMBERS  OF  A/C  SHELTERS  ANO  PEOPLE  ON  AIRBASES 

C 


C  JUOOI 
C  JCI001 


C  JCI001 
C  JCI001 


C  CJI001 


)  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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00  filO  I  AT  *1 *7 

1WQRD I ) AT 9 I A8 ) O  WORD C ) AT  f I AB ) -I F I X IAPDM ( I AT ) ) 
IF  UhOROUAT  #IABJ  .LT.DJ  I  WORD  (I  AT  ,  IA8  )  *0 
610  CONTINUE 

IWORD 11 1 . 1 A8 )  =  IWQRD ( 11. 1 A9 ) -IF  IX ISHDM 1 
IF  1 1W0RD111, 1AB1  .LT.D)  I  WO  RD  1 1 1 »  1  A  8  I  CD 


I  WORD  112, 1AB  )  =  IW0R0112.  I A8 I -IF  IX  I D LKLL  I  I  JCIDDI 

IfClWCROtW,  IAtU.LT.0)  I  WORD (12 ,  1AB)  -D  1  JC1D01 

IF(TPMl  .IT.  0.0001 )  GO  TO  811 
T6  HP  = I W  ORD (13,  IMU 

I  WORD  11  3.)  Ab  )  =  7).  KPM  1  .-DLKLL/TPML  )  ♦  .* 

811  CONMNUE 

C  CALCULATE  CAPABILITY  OF  AIRBASE  INDEXED  BY  I A  0  I  JCI001 

T£  HP  * )  WORD  U  3* )Ab)  I  JCI001 

TEMP*1. -TEMP/100.  1  JC1D01 

CALL  CVFW(N0CDPC(L2)fX0CDP{l,L2).Y0CDPIl,L2>.TEMP.PDEG>  I  JCIDDI 

ABDEGsAMlNlIPDEGfTHPLQW)  1  JCIDDI 

OCNUCUAB)  *QCMUCCIAB)°ABDEG  1  JCIDDI 

DO  812  I  AT  .*  1,7 

CADAMt 1  AT  «  L2 )  -  C AD  AM  1 1  A T , L2  )  ♦  A P DHM  C 1  AT ) 

812  CONTINUE 
22D  CONTINUE 


C  END  DF  DO-LOOP  ON  NUCLEAR  FIRE  MISSION  I  8EGUN  IN  SECTION  3DD 

lit  NAIM  JO.  0  1  (.0  TO  22  1 
C  UtUU  1  I  UK  AM 

TCANAF (JSt L2)  *  TC ANAF ( JS ,L2 )  4  OLKLLT 
DO  813  I  AC  *  1.7 

TD5NACIIAC  .JS.L2)  *  TD SN AC ( I  AC  ,  J S  ,  L2  I  ♦  APDMTCIAC) 

TDMNACt IAC  ,J5f L2I  =  TDMN AC  1 1 AC  .  J5  ,  L2  )  4  APDKMC1AC) 

813  CONTINUE 

TOSNASI JS,L2I  *  TDSNASC J5.L2)  4  SH DMT 
IF  1 1  PR  $  -NE.  1)  GO  TO  &D21 

WRITE  UNO,  6D2D  J  OLKLLT.  I APDMT II  ACT  ) ,  I  ACT  *  1,7),$HDHT 
6D21  CONTINUE 
221  CONTINUE 
C 


A-3.  NUCLEAR  ESCALATION  DELAY 


This  section  completely  lists  subroutine  EDELAY/  in  which  the  delay 
in  the  preferred  nuclear  escalation  state  is  determined,  and  subroutine 
NUC1,  which  calls  EDELAY. 


SUBROUTINE  EDELAY 

c 

c 

C  ROUTINE  DETERMINES  THE  PROPOSED  AND  CURRENT  STATE  OF  NUCLEAR 

C  ESCALATION  AND  THE  DELAY  TIME  BEFORE  THE  PROPOSED  STATE  CAN  BE 

C  ACTIVATED. 

C 

c  oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

C 

REAL  N5UTD .NTSUDT, I NTD A ,  INTO E  .INTO S 


COMMON/B08  / 

000*00 0000400000000909090400900999 0000999000999 09 909090999909090999000900999000* 


CQHM0N/TNF5C<i/NEDLY12)  .XEDLYC8.2)  .YEDLYC8  ,2.2)  .  I  JCID01 

•  jESC(e.3.2),IWAUT(8.2).IFPLS{8f2)#  I  JCIDDI 

•  TEQPDI2) .5EQPD18 ,2),CTIME18,2)  I  JCIDDI 

RE  AL  *8  AOUT(B) .ANONE , ADE LAY . APRES  I  JCIDDI 

REAL**.  ASIDEI2  I.DTIMEIB)  .C0MM0181  1  JCI0D1 

DATA  ANONE .ADELAY, APRES/ '  NONE  •,*  DELAYED • . 9  PRESENT V  I  JCI0D1 

DATA  ASIDE/' 8LUE  1 . f RE  D  '/  1  JCID01 
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1N0= JCON 

1 

JCIOOl 

IF  UPRS.NE  .0  IWR1TE  C IN0.90001  ICYCLE  ,INCYL,IIS ,IS*1 ,NS) 

1 

JCI 001 

00  1COO  L  =  1  * 2 

I 

JCIOOl 

00  1200  15=1  , NS 

I 

JCIOOl 

OE  L  AY  =0  • 

1 

JCIOOl 

CDEG  =  SQRT(TEQP0(U*SEQP0CIS,L1  1 

JCIOOl 

CDMMD  MS )  -COEG 

1 

JOOOl 

00  1205  1 T  C *1 , 3 

1 

JCIOOl 

IF  ( JESCUStlTC  *LI. LT.O.  OR.  JE5C  US, ITCtll  .CE  •)  ESC  (K5»1TC,L1! 

) 

JCIOOl 

•  GOTO  1205 

1 

JOOOl 

IT  MP  =  )  E  SC  ( ) S , 1 TC .L 1 

1 

JCIOOl 

1F(JESC(IS,ITC,U.NE.011TNP  =  -1TKP 

1 

JCIOOl 

JESCi  IS,  ITC.L1 =  1TMP 

r 

JCIOOl 

1205 

1ESC ( )5 , 1 TC ,L ) =0 

,1 

JCIOOl 

IFCIWAUTUS.LI  .NE.D1G0T0  1215 

i 

JCIOOl 

00  12)0  I T  C  =  1 , 3 

i 

JCIOOl 

IF  ( JE  SC  ( IS,!TC»L).NE.O)GOTO  1220 

i 

JCIOOl 

1210 

CONTINUE 

i 

JCIOOl 

CT  1  HE  US,  L  )  *0  • 

i 

JCIOOl 

DT I  ME ( I S I ■ 0 . 

i 

JCIOOl 

GOTO  1200 

i 

JCIOOl 

1220 

IWAUTU5,L)  =  1 

i 

JCI 001 

CT  I  MC  ( I  S  ,L  I  * 0. 

i 

JC 1001 

1215 

IFUFPLSUS.L)  .NE.OJGDTO  1225 

JCIOOl 

CALL  CVFW(NEOL Y(L) .XEOLYCl  ,L ) , YEOL YC 1 , 1 ,L 1 , CO  EG ,OEL AY) 

i 

JCIOOl 

GOTO  1230 

) 

JCIOOl 

1225 

CALL  CVFU(NEDLYILI»XE0LY(1 ,L ),YEOLYCl,2,L),COEGfOELAY) 

1 

JOOOl 

1230 

CT  1 H  t (IS.L  1  *  CT  IHE(IS«L)«12./NNSC 

1 

JCIOOl 

OT  I  ML  C  I  5  ) «  01  LAY 

l 

JCIOOl 

IF  IDE  LAY  .0  T  .CT  )ME( 1S,L I) GOTO  1200 

l 

JCIOOl 

00  12  35  )  T  C 3 1  3 

i 

JCIOOl 

)ESC(  (S,  ITC,L)  UA8SUESCUS,  1  TC , L  1  1 

i 

JCIOOl 

1235 

JESCUS,  1  TC  •  L  )  -0 

i 

JCIOOl 

IWAJT  U  S  ,L  )  =0 

i 

JCIOOl 

IF  P  L  S  ( I  S  ,L  I  *  1 

i 

JCIOOl 

1200 

continue 

i 

JC  1001 

M  ( ( Pk  S  .( 0  .0 ) GtITfJ  1000 

l 

JOOOl 

MR  I  )  L  ()NIJ,9005IAS10t(LI 

) 

JOOOl 

00  1020  IS  31 »N5 

l 

JCIOOl 

AOUT 1 1  S ) *A  NO  NE 

l 

JCIOOl 

IFCIWAUTUS.LI  .EO.OJGOTO  1015 

i 

JCIOOl 

AOUT (IS) aAOE  LA Y 

i 

JCIOOl 

GOTO  1020  . 

i 

JCIOOl 

1015 

00  1016  I  T  C  =  1 , 3 

I 

JOOOl 

1FUESC  (IS  ,1TC  ,l).NE.O)GOTO  1018 

) 

JCIOOl 

1015 

CONTINUE 

i 

JCIOOl 

GOTO  1020 

i 

JCIOOl 

1018 

AOUT( IS) *APRES 

i 

JCIOOl 

1020 

CONTINUE 

i 

JC I 001 

WRITE  (I  NO ,900 1  )( AOUT CIS)  ,1S-1,NS1 

i 

JC 1001 

WR  I  Tr  UNO, *3002  ICCT  IMF  C  I  S.L  J  ,  IS'I  ,NSI 

i 

JC 1001 

WR IT  L  C INU, 9003) COT  I  ME C I 5 ) , 1 5* 1 ,N S ) 

i 

JC 1001 

WRITE  Cl  NO,  9004  KCOMMOCI  5)  ,  15=1  ,N5) 

i 

JCIOOl 

1000 

CONTINUE 

i 

JCIOOl 

9000 

FORMAT (////IX, *TA8LE  NAA  CYCLE  *  ,14 ,5Xf ’DELAYEO  ESCALATION 

*/10X,I 

JCIOOl 

• *5UBC  YC LE  * ,14/ IX, 1 1 9 C 1 H-) //7X , ’SECTOR  * ,5X,8 CU ,9X) /I 

i 

JCIOOl 

9001 

F0RMATC1X,  *  E5CL  STATUS  MOCA0.2XII 

i 

JCIOOl 

9002 

FORHATdX, 'CURRENT  TIME  M0CF8. 1,2X1) 

) 

JCIOOl 

9003 

FORMATUX,'  OELAY  TIME  •  1  0  CFB.  1 , 2X  1  ) 

i 

JCIOOl 

9004 

FORMAT ( IX,  •COMHD  OE  OR  AO  • 10 (F8.4 , 2X) ) 

i 

JCIOOl 

9005 

FORMAT ( ' 0  * , A4 ,  •  S1DE,/5C2H  -I) 

i 

JCIOOl 

RETURN 

C 

ENO 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  NUCl 


SECONDARY  CALLING  PROGRAM  FOR  THE  ROUTINES  WHICH 
DETERMINE  NUCLEAR  ESCALATION  STATES,  DETERMINE 
THE  NUMBER  OF  NUCLEAR  WEAPON  SYSTEMS,  AND  REALLOCATES 
STOCKS  DF  NUCLEAR  WARHEADS  TO  SUPPLY  POOLS. 

SUBROUTINE  NUC I  IS  CALLED  BY  NUC  AND  CALLS  THE 
FOLLOWING  ROUTINES  ESCLAT,  NDSYIN  AND  WHINUP. 

9«i)9i)aae*9ao90o«ci(j9  99«ao99  99««9*99  9«9«9  9  0o3#*ea*oe#*#o*Meo*o**Me 

REAL  NSUTD,NT5UDT,INTDA,INTDE*INTDS 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


COMMON/BBB/ 

009090  909C0  000  5  99  0000  0  9  00  99  0900  99  9  0  00  000  0  0  900  90H9  9M0  0  999999** 

COMMON/LOC At 1/AIwC t 3) ,AS JOE (2) ,N I W AS ,NN I  WAS C 2 ) ,NPT 1 7 ,4 ,30  I , 

X  I WL IDS (100, 2  )  ,  IWLCOT  (  1 00 , 2 J , I W L T ZN ( 100 1 2 ) 

1  , IWLTL0( 100,2) , IWLBTl 100,2 ) ,IWK 100 ,2) ,WLYLD« 100,2) 
X  ,XlWY(42,2)tKIWYF<42,2)  ,  K  I W  YL  I  4  2 , 2  )  ,  NN  YDS  C  2  1 

2  ,WLCEP( 100,21 , I WLHOBC 100,21 
C0MM0N/L0CAA1/NSFRD(4,2,2) ,NSFRSIS,2,2) , 

1  NS  FR  T (5,2,2) ,NDT 

C0MH0N/AFSTF2/  AF DIM (22 ,4  I 

1$  *K ISS 


DETERMINE  ESCLAT1DN  STATE 


CALL  ESCLAT 

DETERMINE  IF  THIS  CALL  WAS  ONLY  FDR  ESCLAT I  ON  STATES 
IF (KFLAG .EQ.2)  GO  TD  IDO 


DETERMINE  NUMBER  OF  NUCLEAR  DELIVERY  SYSTEMS 


CALL  EOELAY  I  JC1001 

DO  ID  1 S S1 ,N5 
'  DO  ID  1 TC*  1 »  3 
00  10  L  - 1 , 2 

IFI1ESCUS,1TC  tLl.NE.O)  GO  TO  50 
10  CONTINUE 
GO  TO  100 
50  CONTINUE 
CALL  NDSYIN 


REALLOCATE  INVENTORY  OF  NUCLEAR  WARHEADS 


CALL  WHINUP 
C 

IDO  CONTINUE 
RETURN 
END 
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A-4.  TARGET  ACQUISITION  PROCESSING  DELAY 

This  section  partially  lists  subroutines  TARACA  and  TADPAR,  in  which 
the  target  acquisition  parameters  for  active  and  reserve  division 
targets  are  determined. 


SUBROUTINE  TARACA 


TARACA  SIMULATES  ACQUISITION  OF  TARGETS  IN  THE  ACTIVE  BATTLE  AREA 
OF  A  GIVEN  SECTOR  BY  GROUND,  ARMY-AIR  ANO  AIR  FORCE  SENSORS 
5ENS0RES  HAY  OPERATE  IN  STANDOFF  IF1XE0  OR  VERTICAL),  STANOOFF 
(MOVINGI  OR  PENETRATING  MODE 

SENSORS  KAY  BE  CONTINUOUSLY  OPERATING  OR  GLIMPSE  SENSORS 
CALLED  BY  TARACQ 
CALLS  TARACE 

4«44O,O9OOO9  409O9  9)O«49»«4<>«O9O«««4OOO«Odl«OO**9»O»iai>»»9O«OOOO4«O«O««« 


REAL  NSUT0,NT5U0T, INTOA, INTDE, INTO 5 
C0MMQN/36B/ 

•4O449999a9O999999OO4099444494444499494949»4944999«0«9994»444004404«44*40490t0«a 

C0MM0N/TNF5C1/  INABF (8,21  , 1 NA 8R  ( 8 , 2  1  , I  NAB  2 12 1 
C0KKUN/TNF5C2/NC3SD (21 ,XC3SD(8,2],YC35D(8,21  , 

*  FDDSAD(8,2)f  F5D5AD (8  ,21 , FTD5AD  18,21  , 

o  FABDCC ( 2 1 ,AB5FCC(8,21 .ABSRCC (8,21 , ABC2CC 121, 

*  FS  SMC  C ( 2 1 , TSSK1R (8 , 2  ) , 5S 5K 1 K ( 8 , 2  I , S55M I L (8  ,21 , 

»  FSAMCC(2) , T5AH 1R (3,2  ),TSAK1 212  1  ,55AK1F(3,2I 

C0KM0N/TNFSC3/NC3DD (2) , XC3DD (8 ,21 , YC 300 (8, 21 , 

*  NCOMO (2) , XCOMD 18 ,21 ,YC0M0(8,21 , 

o  FCLWL (10,21 

C0KK0N/TNF5CA/NEDLY  ( 2 ) ,  X  EDLY  ( 8  ,2 1  ,  YEDIY  (  8 ,2 , 2  1  , 

*  JE SC (8,3,21 , IWAUT(8 ,21 ,IFPLS(8,21, 

*  TEOPD ( 2 ) ,5E0P0(8,21  ,CT1KE(8,2) 

C0KK0N/TNF5C5/NG5FD (2) ,XG5F0(8  ,2 1  ,  YGSFD (8,21  • 

*  NAAFD (2»  ,XAAFD (8  ,2  I , YAAFDC8 ,21  , 

*  NAFFO (2) ,XAFFD (8 ,21 , YAFFD(8,2I 
C3MK0N/LDC AL  3/  JS 

C 

C  THESE  ARE  WORKING  VARIABLES  TARGET  ACQUIST1DN  NE  EOS  ONLY. 

common  /taco/  vi stwziao , n i ,ce itwz (ad, n i ,rylost (6) , 

1  I WZBA (1 1 2] ,  KTERTA1112) 

C**»»o»*«d«»oo»ooo«o«*oo**o*»»oo* 

DIMENSION  PGSDT (7,4,301  ,PDSZ05<7 ,4,301 ,GAP 12 1 ,A5I0E (2  I 
LOGICAL*!  LJC1 (Al.MJCl (A) 

.  E0U1 VALENCE(L JC1  (I ) ,TJCI  ) ,  (MJCIC 1  )  ,1 JCI 1 

OATA  ASIDE/’SLUE », »RED  V  1  JCI001 

C100)  INITIALIZE  WORKING  VARIABLES 

I JC 1  -  0 
FNNSC -I  . 

N2  *0 

DO  b  L*  1  ,2 
N1 *  ]  *N2 

N2  =  N2 «ND  SiJS  ,L ) 

N3 « N5U ( L  ) 

NA*N2ll) 

IF (XUTAM.EQ.il  GO  TO  A 

C....  TARGET  ACQUISITION  MODEL  NOT  USED,  DETECTION  PROB.,  SENSOR  ERROR 
C  ANO  DELAY  TIME  ARE  USER  INPUT 

DU  3  I0S-NI.N2 
DO  3  1SU  =  1  ,N3 
00  3  17*1 , NA 

PS7DDS(lSU,17,lDS)*PSZD(ISU«12fl) 


I  JCI 001 
I  JC1001 
I  JC1001 
I  JC1001 
I  JC1001 
I  JCI001 
1  JC1001 
I  JC1001 
1  JC1001 
I  JCI001 
1  JC1001 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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N5*NZII  I  I 

N6  =  NW  l L  I  I  JC I  001 

1J*NDS(JS,II  I 
1JJ  *  NDSUS,Ll 
C 

C....  GIVEN  A  SENSING  AND  A  TARGET  DIVISION,  COMPUTE  DETECTION  PROS  FORI 
C  EACH  SENSOR  TYPE  C  ICS )  VS  EACH  SUBUNIT  TYPEUSUl  IN  EACH  ZONECIZI 


21  IL1 *  1 DLABA 1 1 CT  $D  ,  JS I 

IFIL.E0.2I  ILl*lDLABAllCTSO+IJ,JS) 

IT  1*1 TD (III) 

CDMD  =  0  .  1  JCIDD1 

DO  211  I Vs 1 ,N6  1  JCI0D1 

TO  E W - TW  D 1 1 W  ,  I T  1 )  I  JCI001 

IF  ITCiEV.GT  .0 . I  COHO  *COMD  +  FCLWL (  IW  ,L  )*WD  1VC1W  ,  11 1 ) /TOEV  l  JC  I0D1 

211  CONTINUE  I  JCIDD1 

CALL  CVFWlNCOHDlL) ,  XCDH  D 1 1 ,L ) ,YC0MD(1 tL)  ,COMD,CCCDI  l  JCIDD1 

CALL  CVFW(NGSFDtLl,XGSFDII  ,L),YGSFDC1,L).CCCD,CCHDI  I  JCIDD1 


C....  TSX  =  LOCATION  OF  SENSOR  GROUP 
TSX=TSX+ITFAC*DVtfDTH< IT1 11/2. 

II  =  NOS ( JS, 1 1  ♦  ICTTD 

IF  CL  .EQ.  2 1  II  *  ICTTD 

1 L 2  *  1 0LA8A ( I CTTD, JS I 

ITEHP  =  ICTTD  ♦  IJJ 

1F11I.EQ.  21  IL2  =  IDLABAUTEHP, JS) 

IT  2  = I  TO  I  I L  2 1 

C....  DSX  *  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 


C....  PASDT  -  PROBIPARTIC  SENSOR  ACQUIRES  PARTIC  TARGET  -  GLIMPSE) 

PA  SOT =1 .-l l.-PDGE)»*t&LPGSlIGS,Ll*TACLl 
C....  TEMP 2  IS  PROBABILITY  DF  NON-DETECTION  BY  ANY 

24  TEMP2  =  ( 1-PA5DT  I*»TEHPI  I  JClOOl 

IFITEKP2.LT.1 .E-IDJTEHP2-D.  I  JClOOl 

C.--.  SENSOR  OF  THIS  TYPE 

C....  TEHP2  *  PROBING  TYPE  IGS  SENSORS  ACQUIRE  A  PARTICULAR  TARGET) 

C....  TE MP3  *  PROBtAT  LEAST  1  TYPE  IGS  SENSOR  ACQUIRES  A  PARTIC  TARGET) 

TE  HP  3  *  1 .-TEMP2 

C....  PDSZDS  WILL  BE  USED  TO  COMPUTE  OVERALL  SENSOR  ERROR  AND  DELAY  TIME 
PDSZDSI  ISU,I2,  11  I*P D5ZD5 1 1 SU,  I Z,ll  I* TEMP 3 
C....  FIND  RUNNING  VALUE  OF  PROBABILITY  OF  NON  DETECTION 
C....  PGSDT  =  PROBIND  SENSOR  OF  ANY  TYPE  ACQUIRES  A  PARTICULAR  TARGETl 
TJC I =  PCS DT  1 1 SU , 1 Z, I  1 1 
IF  I T JC1 .EQ .0. I  GOTO  24D1 
TJC1=TJCI»TEHP2 
IF ITJCI .  LT •! .E -101 T JC I =  0  . 

PGSDT I  1 SU, 1 Z  ,  I  1  I  - T  JC 1 
2401  CONTINUE 

DO  27  IRBST=I,NN 

IF IRANGE  .Lf.VHRBST I  IRBST  ,L)  I  GO  TO  28 
27  CONTINUE 


IRBST=NN  1  JClOOl 

C . TAESZD  AND  TADSZD  CONTAIN  INTERMEDIATE  CALCULATIONS  FOR  SENSOR 

C  ERROR  AND  DELAY  TIME 


28  TAESZDI ISU.IZ, II)  -  TAESZD ( I SU , I Z ,  11 )  «  tTEMP  3+T  ACGSR t IGS  , 
o  IRBST, LII**2 

TADSZOlISUtIZ,  Il)*TAOSZDlISU,IZ,n  MTEMP3MTADTGS I  IGS  ,LI  «COMD) 

I F  I  I  PRD .EQ .0 )  GO  TO  25 

WR I TE I JNUC  ,320  I  DINTEG, RANGE 

WRITE! JNUC  ,330  I  IGS , IL 1 , 1SU ,  IZ  ,IL2 

WRITE  I  JNUC  ,200  I  PASDT ,T  E  MP3 

25  CONTINUE 

DY  =  D Y  *  I P  ZDPT  H l IZ ,1  I l*DVDPTHl IT2J/2  .) 

26  CONTINUE 
3D  CONTINUE 

IF  IlPkO.EQ.O)  GO  TO  31 
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C300  )  target  acquisition  by  army-air  sensors 

c 

C....  COMPUTE  detection  prob  for  EACH  SENSOR  TYPECIAS)  on  each  type 
C  ARMY-AIR  CARRIER! I  AC )  ON  EACH  H I SS I  ON  C I K«  t  STANDOFF  «  *2  PENETRA- 

C  TING)  VS  EACH  TYPE  5UBUNITCISU)  IN  EACH  ZONECIZ)  OF  EACH  TARGET 

C  D 1 V  I S I  ON ( 1 DS  ) 

N7  *  NAAC ( L) 

N  3  *  N  A  S  ( L  ) 

N6*N05 ( J5  ♦  II ) 

CEIT  =  CEITWZt ITT.IWZ) 

VI ST*V!STWZ( ITT, IWZJ/IOOO. 

CCCD  =  5E  QPD t J  5  *  L ) 

CALL  CVFM  NAAFOCL) ♦ XAAFO (I  tL  ) , YAAFD ( 1 ,L I ,CCC0 ,COMO ) 

C 

C....  ITERATE  for  each  division 

DO  80  I DS*  1 1 N6 
JD S 3  I DS 

IF ( 1 1 .EQ .  2  )  J0S  =  J0S4NDS(JS,LI 
1L2-IDLAEA ( JD  S  * J  S ) 

I  T  2  s  I  TD  C I L  2 ) 

C 

C....  ITERATE  FOR  EACH  TYPE  OF  ARMY  AIRCRAFT 
DO  77  I  A  AC  3  I  *  N  7 

C....  PC  «  PROBICEILING  >  SENSOR  ALTITUOE) 

PC*0. 

IF(AMOAACtIAAC*L).LE.CEITI  PC*I. 

C....  DS X  *  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 
DSX*FDWLAC (  I AAC , L ) »DVWDTHt IT21 
C 

C,...  ITERATE  OVER  MOOEL  TYPE.  I K  *1  IS  STANOOFF  MOVING 
C  I M * 2  IS  FCRKARO  AREA.  2M  =  3  IS  DEEP  AREA  WHICH  DOES  NOT 

C  APPLY  TO  DIVISIONS  IN  THE  ACTIVE  BATTLE  AREA. 

00  71  I  H  *  I  ,2 

C....  ASCP  *  NO.  OPERATIONAL  ARMY-AIR  CARRIERS  ON  MISSION  IK 

ASCP*  (AACSI  IAAC»J5,L)-*AACD5(  I AAC  •  JStL  )  )  M  1-FR  AAC  I  C IAAC  #L  I )  • 

•  PAACAMI IAAC,IM,L) 

C....  ASCD  IS  NUMBER  OF  AAC  AVAILABLE  ASSUME  I  SORTIE/CYCLE 
C  ADJUST  VALUES  BY  THE  VARIABLE  RAASDT  ARMY  AIRCRAFT 

C  H4VF  A  I  Q  £  A  Pi  T  RCPW  HTMTtn 

C....  UPDATE  RESULTS 

C....  PASDT  *  PROB  (PART  I C  SENSOR  ACOUIRES  PARTIC  TARGET  -  GLIMPSE) 

PA5DT  *  I.  -  (l.-POGE)*«MGLPAS(tAS,L)*TACL) 

C,...  TEMP2  -  PROBCNO  TYPE  IAS  SENSOR  ACQUIRES  A  PARTICULAR  TARGET) 

68  TEMP2-C1 .-PASDT I **TEMP1 

IF (TEMP2.LT. I • E-10 ) Tf MP2  =  0 .  1 

C....  TEMP3  =  PR  OB (A  T  LEAST  l  IAS  SENSOR  ACOUIRES  A  PARTICULAR  TARGET ) 
TEMP3*I .-TEMP2 

POSZOS( I5U,IZ, J0S)=P05Z0StISU,IZ,J05)«TEMP3 
TJCI-PGSDT ( 1 SJ  « I Z« JDS) 

IF(TJCI .EQ.O.IGOTO  6801 
TJCl=TJCI*TEMf>2 
IFCTJCl.LT. I. E-1DITJCI *0. 

PG  50  T ( I SU* IZ  ,JDS)*T  JCI 
6801  DO  71  I  RE  S  T  3  I  *  NN 

IF(RANGE.LE.VHRBST(IRB5T,LI)  GO  TO  72 

71  CONTINUE 

I RB  ST  *NN  1 

72  TAESZOt  ISU.IZ,  JOS)  3  TAESZOIISU, tl  ,JDS I  ♦  C TEHP3*TACA5R( IA5 t 


C 

C400)  TARGET  ACQUISITION  BY  AIR  FORCE  SENSORS 
C 

C....  COMPUTE  DETECTION  PROB  FOR  EACH  SENSOR  TYPE  C 1AFS )  ON  RECON  A/C  CN 
C  EACH  HI  SSI  ON  II  M)  VS  EACH  SUBUNIT  TYPECISU)  IN  EACH  ZONEUZ)  OF 

C  EACH  TARGET  0 1 VI  SION C I  OS  I 

NR  I  =  I  I 

NR  2  3  NR (  I  )  I 


JCI001 

JCI001 


JCID01 


JCI001 


JCI001 

JCIOOl 
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IF IL .EQ •  1 ) GOTO  BD9 
NR  1  -NR 1 1  Ml  . 

NR2  =  NR  1 1  M  NR.  (2  ) 

809  DO  610  I KR.sNR.1  ,NR2 

IF  I J5.CE.NHSRI IRRIICOTO  611 

810  CONTINUE 
1RR =  1 

811  NRMNLSRIIRRI 
NR  2*NHSR I 1  RR  ) 

CCCD  =  0  . 

00  B  1 2  I  R.R  sNRl  f  N  R2 

812  CCCD  =  CCCD-*5ECP0(  1RR ,  L 1 
CCCD  =  CCCD/  INR2-NRM1) 

CALL  CVFKINAFFDIU  ,XAFFD<1  ,L)  ,YAFFDC1,L) , CCCD, COHO) 

N3  =  NA  FS ( L ) 

C....  PC  =  PROB (CEIL  INC  >  SENSOR  ALTI 
PC -0  . 

IF IAMORACIL)  •LE.CEITI  PC=1. 

DO  95  I DS c  1 » N6 
JDS*  IDS 

IFIII.EO.21  JDS=JDS*NDS< JS,L) 

I L  2  -  IDLABA  (JDS.JS) 

I T  2  2  ITDI IL2J 

C....  CSX  *  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET 
D5X  =  FDWLRAILMDVWDTHIIT2I 
DU  9  4  1 M  1 1  ,2 

IF (RACAMCJS, IHiLl.LT ..DD01 1  GO  TO  94 
C 

C....  AVAILABILITY  HAS  BEEN  ACCOUNTED  FOR  IN  COMPUTING  NUMBER  OF 
C  MISSION,  RACAK.  ATTRITION  FOR  PREVIOUS  CYCLE  IS  NOT  IN  RACAM 

C  SO  AN  ATTRITION  TERM  IS  NEEDED 

C....  TEMP  *  NO.  OF  PCCON  A/C 

TEMP* RAC AH (JS, IM,L)®«) . -RAAF RM  1 1 M , L MF RLPMA ( IM,L1) *5RRAC  A  L ) /FNN  SC 
C 

C....  PROCEED  IN  A  MANNER  EXACTLY  AN  ALGOUS  TO  THE  PREVIOUS  SECTION 
DO  9  3  )  A  F  S  * )  ,  N  3 
DY  *  D. 

IFCIH  .EO.  21  DY  *  DRAFT  CL  1 
C....  TEMPI  *  NO.  OF  SENSORS  PER  TARGET  DIVISION 


C....  PA5DT  =  PROBIPARTIC  SENSOR  ACQUIRES  PART1C  TARGET  -  GL1HP5EI 
PA  5DT  *  1  .-(  1.-PDGEM°IGLPAFSCIAFS,L  MT  ACL  I 
BB  TEMP2  =  (  1  .-PA5DT  )**TEMP1 

IF ITEMP2.LT.l.E-lDlTiHP2*0. 

TE MP3 *1  .-7  EMP2 

PDSIDSI  ISU.I2,  JDSMP0SZDSIISU,U,JDSMTEMP3 
TJCUPGSDT  1 1 SU  ,  12,  JDS) 

IF ( T JC I *EQ .0 • ) GOTO  B601 

TJCMTJCMTEMP2 

IF  ITJCI.LT.l  .E-IDH  JCMO. 

PGSDTIISU,  12  ,  JOSMT  JC) 

8801  00  91  ) RBS T  =  1 , NN 

IF IRANGE .LE. VHRBST I IRBST ,L ) )  GO  TO  92 

91  CONTINUE 
IRBST  =  NN. 

92  TAESZDt I5U , IZ, JDS)  =  T A E SZ D (I SU , IZ ,JD S )♦( TE M P3*TACAF* i I A FS , I RB ST  , 
*  l ) ) °*2 

TADSZDI ISU.IZ, J0SMTA0S20C1SU,IZ,JDSMTEMP3MTADTAFUAFS,LMC0MD) 


SUBROUTINE  TADPAR 
C 

C  TADPAR  SIMULATES  ACQUISITION  OF  TARGETS  TO  THE  REAR  OF  THE  ACTIVE 
C  BATTLE  AREA  BY  ARMY-AIR  AND  AIR  FORCE  SENSORS 

C  CALLED  BY  TARACQ 

C 


JC1D01 
JC1DD1 
JCIDD1 
JC  >  0  0 1 
JCI001 
JC I  DO  1 
JCIDD1 
JCIOOl 
JCI0D1 
JCIODl 
JCIDOl 
JCIDDI 
JCIODl 
JCIDDI 


JCIOOl 


JCIDOl 
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Kt  Al  NSUID,NtSUDT, 1 NlDAf INTDC  * IN  7  0  S 
COMMON / 8  8  8  / 

COMM UN /TNF SCI/  INA8F(8,2)  ,  I NA 8R C8 , 2  I , IN A8 1 12  I  I  JC I  001 

C0MM0N/TNFSC2/NC3SD(2I ,XC3SD(8 ,2) , YC3S0{8,2)  ,  I  JCI001 

»  FDDSAD(8t2),FS0SADC8f2)tFT0SADC8,2I,  I  JCI001 

*  FA80CC(?) ,A8SFCC(8f2)f ABSRCCI 8,21* A8C2CC C2)t  I  JCI001 

*  FSSMCCC2) ,TSSMIR<8 ,2I,SS5MIM(8,2I,SSSM11(8,2),  1  JCI001 

*  F5AMCC (2  I ,TSAMIR <3,2ltT5AMl2C2I  .SSAMI F 13,21  I  JCI001 

C0MM0N/TNFSC3/NC3DD (21 , XC30DI8 , 2 ) f YC3DDCB.2) ,  I  JCI001 

*  NCUMD (21 fXCOMD <8 f2l , YCOMDI 8 ,2) »  I  JCI001 

*  FCLWL { 10 1 2 )  1  JCI001 

C0MK0N/TNF5CA/NFDLY(2l  , X EDL Y C 8  .2  I , YEDL Y (8 ,2 ,2 ) ,  I  JCI001 

*  JESL(0,3,2), !WAUT(8,2I ,IFPLS(B,2>,  I  JCI001 

*  T  E  QP  D  (  2  I ,SEQPD(8(2) VCT I  M E ( 8 ,2  I  I  JClOOl 

COMMDN/TNFSC5/NGSFO (2) ,  X GS F 0  1 8  ,2  1  ,  YG SF 0  <  8 , 2  1  ,  1  JCIOOl 

*  N A AFD ( 2 ) , X  AAF  D (8 ,2) ,YAAFD(8,2! ,  )  JCIOOl 

*  NAFFD(2) ,XAFFD(8,2),YAFFD<8,21  I  JCIOOl 

COMM  ON /L  OC  AL  3/  JS 

C 

C  THESE  ARE  WORKING  VARIABLES  TARGET  ACQUI5TI0N  NEEDS  ONLY. 

COMMON  /TACO/  VISTWZ(A0,11) ,CEITWZ(A0,11) »RVLOST (6), 

1  I WZ  6 A ( I  I  2  I  ,  KTERTAU12) 

C  TARGET  ACQUISITION  DEEP  AREA  DETECTION  ROUTINE. 

DIMENSION  PDA  ASS C A  ,71 t  PDAF SS (A ,7  I , AS 10E (2 ) 

DATA  AS  I OE / *  8L  Ut  * »  *  RED  */  f  JCIOOl 

IFtIUTAM.EO.il  GO  TU  20 

C 

Cl  00 1  DETECTION  PRUBA8ILJTY,  SENSOR  ERROR  ANO  DELAY  TIME  ARE  USER  INPUT 
C  (TARGET  ACQUISITION  MOO  EL  NOT  USEO) 


DO  15  1*1,2 
N1 E N SU ( 1 1 
I  2  NZ ( L I 

DO  10  ISU-l.Nl 
PSRADS( I SU,l I*PSZD( ISU, I  ,1 > 
TAESRAt I  5U  ,  1 1  *  T  A  $E  SZ.  (  I ,LI 
TADSRA ( ISU  ,L I  =  TADT$Z(I *L I 
ID  CONTINUE 
15  CONTINUE 
RETURN 


C200I  INITIALIZE  WORKING  VARIABLES 

C - 

20  FNNSC’l. 

mi’jNuc 

JF< IPRS.NE .01  WRITE ( INQ , I  00  1 1  CYCLE  ,  JS 
00  80  L  r  1  ,2 


I  JCIOOl 
I  JCIOOl 


C 

c 

1F(RACAM(JS,3,L) .LT..0001)  GO  TO  65 
C  R A  CP  =  NO.  RECON  A/C  ON  OEEP  SEARCH 

RACP'RACAM ( JS, 3,1)  Ml . -R AA FRM C 3 , L MF RLPM A t3 . U  )*5RRAC ELI/FNNSC 
00  60  I  A  F  S  *  1  ,N  A 

TEMPl=RACP°PRAF5MtI AFS ,3,LI/MDIV0 
IF ( TEMPI. LE- -0001  I  GO  TO  60 
DO.  50  I  SU*  I  ,N3 

TEMP=SWAU>Sl IAFS,I5U,LI*VELRACCLI •TAFSSDilAF5,L)/0AREA 
PASDT  *1  .-EXP (-TEMP) 

TEMP2M1  .-PASOTIooTEMPl 
PD AFSS ( I AFS, ISU) =1 .-TEMP2 
PSRADS ( I SU,KI=PSRAD5(I5U,KI*TEMP2 
50  CONTINUE 
60  CONTINUE 
65  CONTINUE 
C 

c 

c  SUMMARIZE  ANO  NORMALIZE  RESULTS  IN  SAME  FASHION  AS  IN  TARACA 
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CCCD=5EQPD(J5,LI  I 

CALL  CVFWtNAAFOCL) ,XAAF0<1 ,L ) , YA A F D C 1  ,L 1 ,CCC0  ,C0M0AA )  I 

NR  1  *  1  I 

NR2  s  NR ( 1  )  I 

IF (L • EQ • 1 1  GOTO  809  ) 

NR  1 SNR ( 1  Ml  I 

NR  2  =  NR (1 J* NR (2  I  I 

809  DO  BIO  I  R  R  =  N  R 1  ,  N  R  2  1 

1FCJ5.GE.NH5RC  IRRJJGOTQ  811  I 

810  CONTINUE  I 

I R  R  e  1  I 

811  NR1*NL5M1RRI  I 

NR  2c  NH5R ( 1 RR I  I 

CCCD^D.  I 

DO  812  IRR*=NR1,NR2  ) 

812  CCCD-CCCD*5EQP0( IRRfL)  I 

CCCD=CCCD/ (NR2-NR1U  I  1 

CALL  CVFW(NAFFO(L)tXAFFO(l»L)tYAFFDCl*L) «CCCO  .COMOAFI  l 


DO  7D  I5U-1,N3 
T5EN$R=D. 

DO  fcfc  IAS-1, N2 

T5ENSR=TSENSR*P0AAS5()A$,ISU) 

66  CONTINUE 

DU  67  IAFS*1»N4 

TSEN5k*TSE NSR*  P0AF55 ( I A  FS» 1 SU I 

67  CONTINUE 

00  68  I  A Ss  J , N2 

IF ( T 5ENSR.E0  .0  .  f  GO  TO  68 

PD A A  55 1 IAS ,I5U)*PDAA5StlAS,15U  I/TSENSR 

TAESRAf I5U ,K )=TAE5RA(I5U ,K)*<POAA55(  IA S. 1SU ) «SEAAOAC IAS,L  I  fl. 
TAD5R  A  C  1 5U  ,K )  *TA05RA  ( I5U  ,K  1  «PDAAS5  1 1  AS ,  ISU )  ♦  IT  ADTASt  IAS»L  MCOMDAA) 

68  CONTINUE 

DO  69  IAF5S1,N4 

IFCT5ENSR.E0.0.)  GO  TO  69 

PDAFS5C I Af 5, JSUI-PDAFSSt I A  F  5  » 1 5U l/TSENSR 

TAESRA(ISU,K)sTAESRA(I5U,KM(PDAFS5(IAFS,)SU)  ♦SEA  FDA  f!AF5»L))**?« 
TADSkAI  ISU,R4«7A0SRAClSU,KMP0AFSSUAfS»)SUMCTA07AF()AFS,lM 
•  CUMDAF)  1 

69  CONTINUE 


JCI001 

JCI001 

JCI001 

JCI001 

JC1001 

JCI001 

JCID01 

JCID01 

JCI001 

JCI001 

JCI001 

JCI0D1 

JCI001 

JCI001 

JCID01 

JCIDOl 

JC1001 

JCI001 


JOOOl 


A-5.  INPUT  AND  MAIN  CONTROL 


This  section  completely  lists  subroutine  TMAIN,  which  controls  the 
overall  flow  of  the  TACWAR  combat  simulation,  and  subroutine  TNFINP, 
which  controls  the  C3/D  input  data  to  TACWAR. 


SUBROUTINE  TWAIN 
C 

£0  0090090*099*00009009099090090000009 

C  TWAIN  SET  5  UP  A  CYCLE  COUNTER  WHICH  CONTROLS  I  NT  ER.M  1 TT  ANT  MODEL 

C  FUNCTIONS.  TMAIN  ACTIVATES  AIRtNUCLEAR ,CHEM ICAL, TARGET  AC0UI5IT0N 

C  GR0UND,5UPPL IE5  AND  THEATER  CONTROL  MODELS. 

C  CALLED  BY  NMAJN.  CALLS  MSREAD  AND  APDRTN. 

£0*0  0  *0000*00  00000*0000000  00000000000 

c 

DIMENSION  ARSTC5) 

DATA  ARST/AHSTRE ,4HNTST , AHRENT .4HSTRE.4HNT  / 

'  COMMON  /RSTRT/  NR5TRT  <31 
REAL  N5UT0  ,NT  SUOT , I  NT  DA , INTOE , INTDS 

0000000000000000000000000000000000000000000000000000000000000000*000000000009900 

CDMMDN/BBB/ 

•*e00 000 9 09000 99 00 00 *0 90 009 90 0 00000000000000000900900990909999000009099990999999 
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C0MM0N/TNFSC2/NC3S0(2) , X C3S0 ( 8 ,2 ) , YC3S0 ( 8 ,2 ) , 

•  FOOSAD (8,2),FSDSA0(8,2),FTDSA0(8,2) , 

•  FABDCC(2) ,ABSFCC(8  , 2 ) , AB5RCCC 8 ,21 , AQC2CC (2  ) * 

•  FSSKCC(2),TSSH)R(8,2)fSSSH)H(8,2),SSSMlL(8f2)f 

•  FSAHCC  (2)  ,TSAHIR(3,2),TSAH)2(2)  ,SSAMIF(3,2) 
COMMON /TNF5C3/NC 30 D (2), XC3 00 (8,2), YC 300(8,2)  , 

•  NC 010(2), XC0H0(8 ,2 ) , YC0H0 18 ,2 ) , 

•  FCLWL (10,2) 

C 

RE AL#8  NAMES (16) ,QNAHE 

INTEGER  IPR ) NT ( 16) , ICHNUCC 2 , 2) ,1221,1222,1223 

OATA  NAHES/*QA  PORT  N'QPSAIR  »,*CPSUKY  • , *QAIRMO  • ,  •QCHEM 

•  1 QN  UC  •,’QTAR.AQ  S’OCND  *,,0A)R&0  N’OTC 

•  *0SUPLY  • , *QTI MET  *,IQ«RRST  • , • QTNF IN  »,»Q0SDEG 

•  • QNUCCO  */ 

OATA  IPRINT/ 16 *7/ ,  ICHNUC/4*7/ 

100  FORMAT ( l OX ,2013) 

101  F0RMAT(A8,2X ,3(11,4X11 


)  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JC)001 
l  JCIOOl 
1  JCJOOl 

1  JCIOOl 
1  JCIOOl 
*,I  JCIOOl 
f,I  JCIOOl 
»,)  JCIOOl 
I  JCIOOl 
)  JCIOOl 
I  JCIOOl 
1  JCIOOl 


10)  IN  IT IAL I2AT  IDN 


IR  ST  *  17 
MOT  * JCON 

REA0(5,100,EN0=25)NCYCLE,NNSC 
REAO(5,lO0,END»25)IPR00 
RE AO ( 5, 100  ,END *25) ( )PRS0(1 ) ,1-1,201 
REAO(S,IOO,END  =25 ) ) OMU 
RE  A  0 ( 5 , 1 01  ,ENO*25)ONAHE,  12  21,1222, 1223 
00  22  ) e  1 , 1 6 

)F (QNAHE.NE.NAMES( ) ) JCOTO  22 
IPR)NT( I ) c I  221 

IF (QNAME.NE.NAHE5(5) . AN  0 .QNAHE .N E .NAMES C6 ) JGOTO  21 

ICHNUC(1,I-4)  =  IZZ2 

)CHNUC(2,)-4I*  IZ23 

GOTO  21 

CONTINUE 

JC0N«IPAINT(14) 

CALL  TNFJNP 

25  CONTINUE 


1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
)  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
)  JCIOOl 
)  JCIOOl 
)  JCIOOl 
)  JCIOOl 
I  JCIOOl 


ALLOCATE  NOTIONAL  AIRBASE  TO  REAL  AIRBASE5  UNLESS  THIS  IS  A 
RESTART  RUN. 


IF(NRSTRTd).GT.l)  GO  TO  10 

JCON  * IPRINT(l)  1  JCIOOl 

CALL  APORTN(l) 

10  CONTINUE 


PRINT  TABLES  FOR  CYCLE  PRECEEOING  START  OF  GAME. 


ICYC  LE *0 

IF ( NRSTRT ( 1 )  .GT .1)  I CYCL E=NR STRT ( 3 1 •2—1 

JSUM CIPRINT(2)  I  JCIOOl 

CALL  PSAIR 

JSUM *IPR)NT(3)  I  JCIOOl 

CALL  PSUMHY 


SET  GAME  CYCLE  COUNTER.  INITIALIZE  MAJOR  SUPPLY  CYCLE 

COUNTER  TO  NCSH  «  NO.  COMBAT  CYCLES  IN  A  MAJOR  SUPPLY  CYCLE. 
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11  1 1  Ft  AG  =  D 

IF {NR5TRTC1J .GT.1I  GC  TO  90D 
GO  TU  90 1 

900  II  FLAG  *  1 

ICYCLE  *  NR5TRU3)  *  2 
GO  TO  902 

901  ICYCLE  =  1 

902  CONTINUE 
ICSM=NCSM 

IFtNCSM.LE  .01  GO  TO  904 

903  IF ( IC5H.GE  .ICYCLE)  GO  TO  904 
ICSM  =  ICSM  ♦  NC5M 

CO  TO  903 

904  CONTINUE 
C 

c - 

C  201  EXECUTE  AIR  MODEL 

C  STATEMENT  1000  15  THE  STARTING  POINT  FOR  CALCULATIONS  EACH  CYCLE. 

C  BEGIN  BY  SETTING  PRINT  FLAG  IPRD-1  (PRINT)  IF  CYCLE  IN  ARRAY  IPRDO 

C - 

C 

)F  INKSTRT (?) .ED. I .AND. I IFLAG.ED.I  )  GO  TO  1015 
1DD0  DU  1010  11*1,5 

IF ( ICYCLE .60.1 PRD3I I  I ) )  GO  TO  1015 
IF ( ICYCLE.LT. I PRDO( I  I ) )  GO  TO  1020 
1010  CONTINUE 
GO  TU  1020 
1015  JPRO* I 

GO  TU  1025 
1020  IP  RD  =  0 
1025  CONTINUE 

IF ( IUMU.ED.7)  CO  TO  1021 

JC0N*IPRINT(4)  I  JC1001 

CALL  AIRMOD 


C 

c - 

C  30)  EXECUTE  NUCLEAR  AND  CHEMICAL  MODELS 

C - 

C 

c - - - 

C  ARE  NUCLEAR  ANO  CHEMICAL  WEAPONS  CONSIDERED  ? 

C - 

c 

IFCICMU.EQ.5)  GO  TO  700 

C - 

C  ALLOCATE  NOTIONAL  AIRBASES  TO  REAL  AIRBASES 

C - 

C 

JC0N*IPRINT(1I  I  JC 1001 

CALL  APORTN(l) 

1021  CONTINUE 
C 

c - 

C  FOR  NN5C  SUBCYLES 

C  SET  FLAG  ANO  CALL  NUC  AND  CHEH  FOR  DETERMINING  ESCALATION 

C  STATE  ANO  CHEMICAL  EMPLOYMENT  LEVEL 

C - 

C 

NI TC  e3 
KNUCH=D 
C 

C - 

C  SET  I PR5  FOR  SUMMARY  OUTPUT 

C - 

c 

IPR5=D 

DO  1  11*1,30 

lFUCYCLE.EG.lPRSDUlll  GO  TO  2 
IF (ICYCLE. LT .IPR50C Ill  I  GO  TO  3 
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1  CONTINUE 
CO  TO  3 

2  IPRS* 1 

3  IFCICYCLE.EQ.1.QR.1CYCLE.EQ.NCYCLEI  IPRS*1 
IF  U IFLAG.E0.1I  IPRS  *  1 

C 

c - 

C  BEGIN  CALCULATIONS  FOR  EACH  SUBCYCLE  INCYL 

C - 

c 

DO  600  1 NC  YL  =1  ,NN5C 


IF  NO  CHEH  OR  NUC  WEAPONS  USEO  AFTER  FIRST  SU  BC YC LE . LE A VE  00-L00P. 


IFflNtYL.GT.l.AND.KNUCH.FG.D)  GO  TO  700 

C  JC  I  00 1 

KF  LAG* 1 

KI 5  S  *  0 

I  JCIOOl 

JCON  * I  PR INT ( 1 6 ) 

I  JCIOOl 

CALL  NUCCCO 

I  JCIOOL 

I  JC I 001 

JCON=  IPR INTI  15 ) 

1  JCIOOl 

CALL  OSOEG 

I  JCIOOl 

IF  CHEH  WEAPONS  ARE  TO  BE  PLAYED  CHEM  DETERMINES  CHEH 1  CAL 
EHPLOYHE  NT  LEVEL  ANO  INITIALIZES  CHEMICAL  MODEL 


IF (IOMU.EQ .3-OR.IOHU.EO.SI  CO  TO  12 

JC  HEM  -I PRI NT (5 )  1  JC1001 

CALL  CHEH 
KFLAG*1 
KI SS  *0 


IF  NUC  WEAPONS  ARE  TO  BE  PLAYED  NUC  DETERMINES  ESCALATION 
STATE  AND  INITIALIZES  NUCLEAR  MODEL 


12  IF  (IOMU.EQ. 4. OR. IDMU.EQ.5J  CO  TO  13 

JNUC -  IPR I  NT  C  6  I  I  JCI001 

CALL  NUC 

13  KFLAG  *  0 


BEGIN  NUC  AND  CHEM  CALCULATIONS  FOR  EACH  SECTOR  KISS  *  15. 


00  500  1 S* 1 » NS 
KISSES 


DETERMINE  IF  THIS  SECTOR  HAS  A  POSITIVE  ESCALATION  STATE 


00  310  L  *  1  ,2 
DO  310  1TC=1,NITC 
IF  C IE5CC  1S*1TC*L).GT  .0)  CO  TO  320 
310  CONTINUE 


NO  USE  OF  NUCLEAR  WEAPONS  IN  THIS  SECTOR 


KNUC  *0 
CO  TO  350 
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NUCLEAR  WEAPON  ARE  TU  BE  USEO 

KNUCH  I  NO  I  CATE  S  NUCLEAR  OR  CHEMICAL  WEAPON  USE 


320  KNUCO 

KNUCH ‘KNUCH* I 


DETERMINE  IF  THIS  StCTOR  HAS  A  POSITIVE  EMPLOYMENT  LEVEL 


350  CONTINUE 

00  360  L«l,2 

00  360  I TC  *1 *N 1 T C 
IF  t IEKL( ISfITC  *L),ST.O)  GO  TO  370 
360  CONTINUE 


NO  USE  OF  CHEMICAL  WEAPONS  IN  THIS  SECTOR 


KCHEM*0 
GO  TO  400 


CHEMICAL  WEAPONS  ARE  TO  BE  USEO 


370  KCHEM  =1 

KNUCH=KNUCH« I 


IF  THE  ESCALATION  STATE  OR  THE  EMPLOYMENT  LEVEL  WAS  POSITIVE 
CONDUCT  TARGET  ACQUISITION  IF  NOT  GO  TO  NEXT  SECTOR 


400  CONTINUE 

IF ( INCYL-GT.IT  GO  TO  405 

KIPRDMPRD  C  JCI001 

ICI  IP  RD  *  0 


TARACQ  PERFORMS  TARGET  ACQUISITION  CALCULATIONS 


JNUC*IPR IN  T ( 7)  I  JCI001 

CALL  TARACQ 
%  IPRD*K1PRD 


OETERMINE  ORDER  OF  USE  OF  WEAPONS 


405  CONTINUE 

IFtKNUC.EQ.O*  ANO.  KCHEH.EQ.OI  GO  TO  500 

IF ( I0KU.EQ.1.0R.I0MU.EQ.3.0R.I0KU.GE.6)  GO  TO  410 

GO  TU  460 


NUCLEAR  WEAPONS  ARE  USED  FIRST  IF  ALLOWED 


410  CONTINUE 

IF(KNUC.EQ.O)  GO  TO  420 
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NJC  PERFORMS  NUCLEAR  0AM AGE  CALCULATIONS  IN  SECTOR  KISS 


JNUC*ICHNUC<1,2)  I  JCI001 

CALL  NUC 


ARE  CHEMICAL  WEAPONS  USEO  IN  A0DITI0N  TO  NUCLEAR  WEAPONS  ? 


420  CONTINUE 

IF { I0HU-E0  .3)  GO  TO  S00 
IF (KCHEM.EO.OI  GO  TO  500 


CH EH  PERFORMS  CHEMICAL  OAHAGE  CALCULATIONS  IN  SECTOR  KISS 


JCHEH'ICHNUC(lfl)  I  JC 1001 

CALL  CHE  H 
GO  TO  500 


CHEMICAL  WEAPONS  ARE  USEO  FIRST  IF  ALLOWED 


<.60  CONTINUE 

IFtKCHEM.EO.OI  GO  TO  470 


ADDITIONAL  CHEMICAL  DAMAGE  CALCULATIONS  BY  CHEM 


JCHEM-ICHNUC (1 *1  I 
CALL  CHEM 


1  JCI001 


ARE  NUCLEAR  WEAPONS  USEO  IN  AOOITION  TO  CHEMICAL  WEAPONS  7 


470  CONTINUE 

IF ( 1  OKU. E 0  *4 ]  GO  TO  500 
IF(KNUC.EQ.O)  GO  TO  500 


ADO  IT  I ONAL  NUCLEAR  0  AM AGE  CALCULATIONS  BY  NUC 


JNUC  * ICHNUC ( 2  *21  I  JCIOOI 

CALL  NUC 


ENO  OF  00— LOOP  ON  SECTOR  IS  *  KISS 


500  CONTINUE 


ENO  OF  OO-LOOP  ON  SUBCYCLE  INCYL 


I  JCIOOI 

600  CONTINUE 


NUCLEAR  ANO  CHEMICAL  DAMAGE  CALCS.  FINISHEO  FOR  THIS  CYCLE 
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C 

IF  1 1 OMU  *EQ  .7 )  GO  T3  1022 
C 

c - 

C  ALLOCATE  REAL  AIRBASES  TO  NOTIONAL  AIRBASES 

C - 

c 

UCONdPRINTll)  I  JCI001 

CALL  AP0RTNC2) 

1022  CONTINUE 
700  CONTINUE 


*0)  EXECUTE  REMAINING  PARTS  OF  TACWAR  MODEL  FOR  THIS  CYCLE 


GROUND  PERFORMS  GROUND  COMBAT  CALCULATIONS 


lFtiOMU.GE.6)  GO  TO  1041 

JC0N=IPR1NTC8)  I  JC 1001 

CALL  GROUND 


AIRGRO  PERFORMS  AIR-GROUND  CALCULATIONS 


JC ON  = IP R 1 N T  1 9 )  I  JCI001 

CALL  AIRGRD 
1041  CONTINUE 

IF  (IIFLAG.E0.II  GO  TO  1026 

IF ( 1CYCLE.EQ.I .OR.ICYCLE .E  Q.NC YCLE  )  GO  TO  1026 
1F(IPRD.EQ.I  ) GO  TO  1026 
DO  1027  II =1*30 

IF (ILYCLE.EO.IPRSOt II) }  GO  TO  1026 
IF (ICYCLE.LT.lPRSOt II ) )  GO  TO  1028 
1027  CONTINUE 

GO  TO  1028 
1026  CONTINUE 

IFCI0MU.EQ.7I  GO  TO  1028 


PSA  1 R  PRINTS  A IR-GROUNO  SUMMARY,  AS  REQUIRED 


JSUM*  IPR1NT (2)  I  JClOOi 

CALL  PSAIR 
1028  CONTINUE 


.IF  ICYCLE  NOT  LAST  CYCLE  IN  GAME,  SET  FLAGS  FOR  CALLS  TO  NUC  AND 
CHEM  TO  CALCULATE  NUCLEAR  ESCALATION  STATE  ANO  CHEM  EMPLYMt  LEVEL 


KF  L  AG  *2 
KI SS=0 
I NC YL  *0 


NUC  DETERMINES  NUCLEAR  ESCALATION  STATE  IF  NUC  WEAPONS  ARE  PLAYED 


IF(I0MU.EQ.?.0R.10MU.EQ.5)  GO  TO  14 

JCHEM*ICHNUC(2,1)  I  JC1001 

CALL  CHEM 


CHEM  OETERMI NES  CHEMICAL  EMPLOYMENT  LEVEL  IF  CHEM  WEAPONS  PLAYED. 
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14  IFII0KU.EQ.4.OR.IOHU.E0.5)  GO  TO  15 
JNUC* 1CHNUCI2, 2) 

CALL  NUC 

15  KFLAG  »  0 

<F(  (OMU.GE  .6)  GO'  TO  1090 
C 

c - - 

C  TC  PERFORMS  THEATER  CONTROL  AND  BOCKKEE  P (NG  CALCULATIONS 

C - - 

C 

JC ON  =  I P R  INT (10) 

CALL  TC 

IF ( ICYCLE.NE  .(CSM<  GO  TO  1030 
C 

C - 

C  FOR  MAJOR  RESUPPLY  CYCLE.  SUBROUTINE  SUPPLY  MAKES  SUPPLY 

C  MOOEL  CALCULATIONS 

C - 

c 

JC  ON  =  ( P  R I NT (II ) 

CALL  SUPPLY 

C 

c - 

C  INCREMENT  NEXT  MAJOR  RESUPPLY  CYCLE 

C - - 

c 

IC  SM  *  I C  5K«NC  $H 

1030  IF  UCYCLE  .NE  •  .2*100)  GO  TO  16 
C 

c-  - - 

C  TIMET  R  E  AOS  INPUTS  IF  TIME-T  VAB  TABLES  ARE  TO  BE  INPUT  THIS  CYCLE 

C - 

C 

JCON*)PR!NTOZ) 

CALL  TIMET 

16  IFU  (FLAG.EQ.I )  GO  TO  1040 

IF) (CYCLE. EQ. I  .DR.ICYCLE  .EQ.NCYCLE  )  GO  TO  1040 
If  XPRD.EQ.l)  GO  TO  1040 
00  1035  II =  1 r  3  0 

(F ( 1 C YC LE  .  E 0  •) PR  SO ( ( 1 ) )  GO  TO  1040 
IF ( (CYCLE  •  L  T  .  ( PR  SO ( 1 1) )  GO  TO  1090 
1035  CONTINUE 

GO  TO  1090 
1040  CONTINUE 
C 

c - 

C  P5UMMY  PRINTS  SUMMARY  TABLES  FOR  GROUNO  ANO  THEATER 
C  CONTROL  VARIABLES 

c - - - - 

c 

JSUH  * ( PR  1  NT ) 3 ( 

CALL  P5UMM  Y 
I  (FLAG  *  0 
C 

C - - 

C  CHECK  TO  DETERMINE  IF  THIS  T  AC  WAR  RUN  WILL  CREATE 

C  RESTART  FILE.  IF  SO,  COPY  BLANK  COMMON  FOR  EACH 

C  COMBAT  DAY  TO  THE  OUTPUT  RESTART  FILE.  (1RST  *  17) 

c - - 

c 

1090  JF)NR5TRTCl).EQ.1.0R.NR5TRTm.EQ.3)  GO  TO  1050 
GO  TO  1055 

1050  IF  <MOD(lCYClE,2I.EQ.O)  GO  TO  1055 
NDAY  *  XCYCLE  ♦  1)  /  2 

WRITE  ( ( RST  .  1 051  )  ARST,  ND AY 

1051  F0RMATI1X, A18r 141 

JCON* IPR(NT) 13)  1 

CALL  WRRST  URST  < 

1055  CONTINUE 
C 


)  JCI001 


JCI001 


JC1001 


JC)001 


JCI001 


JOOOl 
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c - 

C  END  DF  CALCULATIONS  FOR  THIS  CYCLE.  STOP  IF  LAST  (NCYCLE)  CYCLE; 

c  otherwise,  increment  icycle  ano  begin  calculations  for  new  cycle. 

c - 

c 

IF  (  ICYCLE. GE. NCYCLE)  GO  TO  1099 

ICYCLE=1CYCLE+1 

GO  TO  1000 

c 

c 

1099  1F(NRSTRTU).EQ.1.0R.NRSTRT(1).EQ.3)  revino  irst 
RETURN 
ENO 


5U8R0UTINE  TNF1NP 

TNFINP  READS  IN  DATA  ASSOCIATED  WITH  CCC  DEGRADATION  OF  NUCLEAR 
RE  SOURCES 


1  JC1001 
I  JCI0D1 
1  JC10D1 
I  JCI001 
I  JCIOOI 


REAL  NSUTDtNTSUDTtINT0AtlNTDE,lNTD5  I  JCIDD1 

OOO6OeOOOOOO0OOOO0OO00OO*9O0O0O9OOO*OO*OOOOO«OOOOO*O*O**O#OOO#OO9**OO*0OOO 

C0KM0N/BB8 / 


100 

101 

102 

103 

10*. 

105 


OOOOOOO0O0OO0O0OOO9O0O9O0OOOOOOOOOOOO0OOOOO00900O000OO0000O00000000OO000O0 


C0MM0N/TNFSC1/1NA3F(8,2)  , I NABR (8 f Z ) , 1 NA8IC2 1 

1 

JCIOOI 

COMMON/ TNF SCZ/ NC 350  C2) , XC3SD  (8 ,  2  ) ,  YC  3S  0  (  8 , 2 ) , 

) 

JC1001 

*  F0DSA0(8 , 2) , FSDSAD(8 ,2 ) , F T DSA D C 8 , 2 ) • 

JCI0D1 

•  FABDCC12 ) ,ABSFCCC8 ,2 |,AB5RCC(8,2) ,ABCZCC(2I, 

1 

JCI001 

*  FSSMCC12I ,TSSM1R(8 , 2 I , 55SM I M ( 8 , 2  I , 55SM I L (8 ,2) , 

I 

JCI001 

»  F5AMCC (2) , TSAH IR(3,2 ),T5AMIl(2)  ,55AMIF(3,2I 

I 

JCI0D1 

COMMON/TNFSC3/NC3DD(2I , X C3CD 1 8  f 2 I , YC3DD ( 8 ,2) , 

I 

JCID01 

NCOMD  (2J , X  CDMD (8  ,2 ) , YCDMD I  8 ,2  I  , 

I 

JCI001 

FCLWL ( 10 ,2 ) 

1 

JC1001 

C0KM0N/TNFSCA/NEDLY121 , XEOLY  (8 ,2 ) f YE0LY(8 ,2 ,2) t 

1 

JC 1001 

JESC(8,3,2 )fIWAUT(8,2) ,IFPLS(8 ,2)* 

) 

JCI001 

TEQPD (21 ,$EQPD(8,2) ,CTIME(8 ,2) 

1 

JC1DD1 

COMMON/TNF5C5/NGSFDC2J ,XGSFD (8 ,2) , YGSf D(8 ,2) , 

1 

JC1001 

NA AF 0 ( 2 ) , XAA FO  (8  ,21 , TAAF0C8.2) t 

I 

JCIOOI 

NAFF  D ( 2) , XAFF  0 (8 ,2 ) , YAFf 0 ( 8  ,2 ) 

I 

JC1001 

REALMS  APARMC31) 

I 

JC1001 

OATA  APARM/'NC300  f,*XC30D  * , ' YC300  *,*NCUMO 

• , *XCOMO 

M 

JC1001 

*  YC  UK  0  », 'FCLWL  *,»NC3S0  B,'XC3S0 

* ,*YC3S0 

M 

JC 1 001 

•EABOCC  1 ,  ’ f  5SMC  C  V'FSAMCC  ,,,T5$M1R 

*  *  *  5S5M  IN 

M 

jciooi 

'5SSM1L  * ,  •  T SAM  1 R  •*'TSAM1I  ,,,SSAM1F 

•,’NEOLY 

M 

JOOOl 

•XEOLY  • , ' YEO  L Y  •,*NGSFO  •,»XG5FD 

• , • YG5F0 

JCIOOI 

*  NAAF  0  1 , • XA A  FD  • , • YAAFO  • , • NA  FFD 

* , *  XA  FFD 

M 

JCIOOI 

•YAFFO  •/ 

I 

JCIOOI 

DIMENSION  AS  10 E (2 ) 

l 

JCIOOI 

DATA  AS  I DE / *  8  LUE ' , ' RED  •/ 

I 

JCIOOI 

FORMAT ( 1 OX ,2  0 1 3) 

1 

JCIOOI 

FORMAT  (1X,A6,I  0(3X,  14)) 

I 

JCIOOI 

F0RMATC1DX,  I0F6.0) 

1 

JCIOOI 

FORMAT(lX,A6,10t3X,F8.3) ) 

I 

JCIOOI 

FORMAT ( *0  INITIAL  TNFS  VALUE5  FOR  B,A4,*  SIDE*) 

I 

JCIOOI 

FDRMATtlX, 'NORMALIZED  VALUES  FOR  FCLWL*) 

1 

JCIOOI 

MOT  =  JCON 

I 

JCIOOI 

00  30  L - 1 , 2 

I 

JCIOOI 

RE  AO (5 , 100  1 

1 

JCIOOI 

KRITECMOT, 1D41 ASIDE(L) 

l 

JCIOOI 

READ (5,100 ,ENO  =25,ERR=28  )NC300CL) 

1 

JCIOOI 

WR  1TECM0T, 101 )APARM(1).NC300(L) 

l 

JCIOOI 

NN  =  UC3D0 (L ) 

I 

JC  1  DO  1 

READ (5, 102,EN0=25,ERR*28 ) ( XC300 ( I , U , I *1 ,NN ) 

1 

JCIOOI 

WRITE  (MDT.103) APARM(2) ,CXC300(  1,L) *1*1, NN) 

I 

JCIOOI 

RE  AO (5, 102,  ENO *25, ERR' 28  )  ( YC30 0 ( I , L ) *  I *1 ,NN ) 

I 

JCIOOI 

WRITE (MOT ,  1D31APARM(3) ,(YC300(  1  *  L ) ,1=1,NN) 

1 

JCIOOI 

RE  AD  (5,  IDO,  END  =25,  ERR  =28  )NCO,MO(L) 

I 

JCIOOI 

WRITE tMOT, 101) AP ARM (41 ,NCOMO(L ) 

l 

JCIOOI 

NN=NCOMD(L ) 

1 

JCIOOI 
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REAO(5,102 ,£N0=25,ERR*2B((XCQM0( 1,1) ,I*l,NN(  I  JCI001 

WRITE  (MOT,  103)  APARM (5)  ,  (XCOMOl  I  ,1)  ,1  *1  ,NN )  I  JC  1001 

RE  AO l 5,102  ,EN0=25,ERR=2B)(YC0M0( r,l(,I*l,NNJ  I  JCI001 

WRITE  (MOT,  10  31  APARM!  6)  , ( YCQMO l I ,L )  ,1 *1 ,NN 1  I  JC  I  00  1 

NN=NWll)  I  JCIOOI 


RE  AO  ( 5, 1 02, E  NO  *25,  E  RR-2B  UFCIWU  I ,  LJ  .  I  *1  ,NN  ) 

WRITE  IKOT  *1031  APARM ( 7)  f  ( FCIVL {  I  »L  )  ,1»1,NN) 

RE  AO ( 5, 1 00, E NO =  2 5, ERR =28 )NC3501L) 

WRITE  IHOT,  lOI)APARM(fl) »  NC  3  SO ( L  ) 

NNeNC3S0(L  ) 

REAO(5,102,ENO=25,ERA=28)(XC3SO(I ,1) ,I*1,NNJ 
WRITE IMOT, 103) APARM 19> , l XC3S0II ,L )  ,1-1 #NN) 

REA015, 102,ENO=25,ERR=2B)(YC3SO(l,l) ,I-1,NN1 
WRITE (HOT  ,103) APARM C 10( , (YC3S0 C I ,L C . 1*1 ,NN) 
REAOl5,100tENO*25.ERR*28 )NEOLY  CL) 

WRITEIMOT, 101) APARM (201 ,NEOLY(L) 

NN=NE01YIL  ) 

REA0l5,102,FN0*25,ERR«2B)(XE0LYCI,l)  ,I*1,NN) 

WRITE  IM0T,103 JAP  ARM  121 ), tXEOLYt ) ,L), 1-1 ,NN) 

00  10  J*  1 , 2 

RE  AO  (5, 102  9EN0-2S,ERR-2dH  YtOLYtl,  J.tlt  1*1,NK1 
WRITEIMOT , 103) APARM(22) , { YEOLY C I , J ,L1 , I *1 ,NN ) 

10  CONTINUE 

REAO(5,100  ,EN0=2  5,ERR  =  2B)NGSF0(l ) 

WRITE (MOT,  101) AP ARM (23  1  ,NGSFO(l) 

NN  =  NG5F0 IL I 

REA0(5»102  ,ENO=25»ERR=2B)lXGSFOl I ,L) ,I*1,NN1 
WRITE (MOT,  103) APARM (24) , (XGSFO C 1 ,L)  , 1  *  1 ,NN I 
RE  AO  t  5, 102  ,ENO=25,ERR=2B  It  YCSFOM  ,L)  ,  I  *1  ,NN) 
WRITEIMOT,  10  3  I  APARM  (25)  ,  (YCSFOM  ,L),1*1 ,NN) 

RE  AO (5, 100 ,EN0*25,ERR*28 1NGSF0 (L 1 
WRITEIMOT, 101 ) APARM 126) ,NAAFO(L) 

NN  *N  AAFO (L J 

RE  AO  15, 102 ,E NO =2 5, ERR *28  I IXAAFOt I , L 1 , I -1 ,NN } 

WRITE  IHOT,  103) APARM (27) , (XAAFOll ,L) ,1-1 ,NN) 

RE  AO (5, 102 , ENO *25, ERR  =  2B ) (YAAFO( I ,t) ,1*1 ,NN ) 

WR  )TE  (MOT,  103) APARH128) , (YAAFOl I ,L ) ,1  =  1 ,NN) 
REA0(5,100,ENU-25,ERR*2B)NAFF0tL) 

WRITE  (MOT ,  I01)APARM(29) ,NAFFOCL) 

NN-NAFFOU ) 

RE  AO  (5, 102  ,EN0  =  25,ERR  =  28  KXAFFOt  1,1)  ,1*1,NNJ 
WRITE  IMOT,  103)  APARM (30)  ,  CXAFFOM  ,1)  ,1  =  1 .NN) 

RE  AO l 5, 102  ,ENO=25,ERR=28 )l YAFFOt I ,L) ,I«1,NN1 
WRITE (MOT, 103 ) APARM (31 ) , ( Y A F FO M ,1 1 , I -1 ,NN ) 

RE  AO  15,102  ,ENO =2  5, ERR  =  2  8 JFABOCCCL) 

WRITE (MOT, 103) APARM 111) , FAeoCC (L) 

RE  AO 1 5 , 1  02  ,EHO  =  2  5,ERR*2B)FSSMCC  (l) 

WRITE (MUT, 103) APARM (12) ,FS5MCC(l ) 

REAO(5,102  , END  =  25, ERR =2 8  JFSAMCCll ) 

WRITE (MOT , 103) APARM (13) .FSAMCC (L ) 

00  40  IS  =  I  ,N 5 

IF  (SSMSRSUS.l  ).GT.0.)TSSMIRIIS,1)  =55MSR5tIS,U 
IFtSSMSFSl  l,IS,Ll.GT.0.)S55MIMCI5,l)  -S5MSFS  ( I  ,  I  S  ,L  ) 
IFl5SMSF5(2f IS,L  J.GT.O.) 55 SMIL U 5 , L ) -SSMSFS 1 2 , IS ,L ) 
AO  CONTINUE 

WRITE (MOT, 103) APARM (14) ,(TSSMIR( I S,L) ,15*1, NS) 

WR ITE (MUT ,103) APARM (15) , (SSSHIMC IS,1) ,15*1, N5( 

WRITE (MUT, 103) APARM (16 ( , (SSSMI L ( I  5  ,1 ) , 15*1 ,NS ) 

NR  I =  NR ( l  l 
DO  <.2  IR  *)  ,NR T 

IF (AIRS* U ,)R, L ( .GT .0 . ( T SAM  I R ( IR ,1 J *  AIR  SR  Cl , 1 R,L  I 
IF (BMKS ( 1, IR,l I.CT.O.JSSAMIf ( IR ,1 ) *BMRS( 1,IR ,L) 

42  CONIINUE 

IF(ALRSZ(I  ,L  J.CT.O. JTSAM I Z (l )  =  AIRSZC 1  ,l( 

WR I TE (MOT, 103) APARM (17) , ( T  SAM ) R( I R ,L ) , I R  =  1 , NR T J 


1  JCI001 
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I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
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i  jciooi 

I  JCIOOI 

r  jciooi 

I  JCIOOI 
I  JCIOOI 
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1  JCIOOI 
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1  JCIOOI 
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WRITE  (MOT,  1031  APARM  (18  )  .ISAM  IKK  I  JCIOOI 

WRITEIMOT ,1031 APARM I 19) ,(SSAM1F( IR,LlrlR*l ,NRTJ  1  JCI 001 

NN  =  N W ( L  )  i  JCIOOI 

5UMM-0.  ,  JCI001 

00  32  1*1, NN  I  JCIOOI 

32  SUMM*SUMM*FCCWL( I, LI  j  JCIOOI 

IFISUMM.LE  .O.JCOTO  35  j  JCIOOI 
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DO  34  1*1, NN 

I  JCIDDl 

34 

FCLWL  II ,1) *FCLWL II ,11/SUMH 

I  JCIDDl 

35 

WRITE (MDT,  1D5) 

1  JCI001 

WRITE(MDT,lD3lAPARM(7I,(FCLWlll,l!,!*l,NNI 

I  JCI0D1 

30 

CONTINUE 

I  JCIOOI 

25 

CONTINUE 

I  JCIDOI 

RETURN 

l  JCIODl 

2ft 

WR  I  T  E  46 , 99  9  1 

1  JCIOOI 

999 

FORMAT t 1 1  *,*•••  ERROR  OCCURRED  IN  SUBROUTINE  TNFIHP  ON  DATA 

•» 

I  JCIDDl 

« 

•  f R E A D I N  o©©*] 

1  JCIOOI 

STOP 

r  jcidoi 

END 

1 

JUUD1 

BICCKDATA 

l 

JCIDOI 

COMMUN/INf SC2/NC3SDI2) ,XC3SD  IB  ,2 )  ,  YC3SD 18  ,2 )  , 

I 

JCIDOI 

© 

FDDSAD(8,2I,FSDSADC8  ,2 ) , FTDSAO ( B  ,  2 )  , 

I 

JCIODl 

FA8DCC (2) ,ABSFCC (8 ,2  I,ABSRCC(8t2),ABC2CC <2) * 

I 

JCIODl 

• 

FSSMCC (2) , TS5MIR (8 ,2),S5SHIH(B , 2 I , SSSH 1 L ( 8 ,2 1 , 

1 

JCIOOI 

© 

FS  AMCC  C2I  .TSAMIR  43,21  »TSAHU42I  ,SSAMIF(3,2) 

I 

JC  ID01 

C0MM0N/TNFSC3/NC3D0 ( 2 1 , X C3 DO ( 8 ,2 > , YC 300 ( 8 , 2 )  , 

I 

JCIOOI 

• 

NCOMD (21 ,XC0MDC8  ,2 I , YCDMD  I  8 , 2 I  , 

I 

JCIDOI 

© 

FCLWL  (10,2  ) 

I 

JCIDOI 

DATA 

NC3DD  , NCOMD ,NC3SD/6»D/ 

I 

JCIOOI 

DATA 

XC3DD,XC0MD,XC3SD/48*D./ 

I 

JCIOOI 

OATA 

YC3DD  , YCDMD  ,YC3SD/48«D./ 

I 

JCIDOI 

DATA 

FCLWL/2D«D,/ 

I 

JCIOOI 

DATA 

FA SOCC, FSSMCC, FSAMCC/6*D./ 

I 

JCIODl 

DATA 

TS5MIR,SS5MIX,SSSM 11/48*. 001/ 

I 

JC I  DO  1 

DATA 

TSAMI R,  TSAMIZ, SSAMI F/140.DD1/ 

I 

JCIDOI 

DATA 

ABSFCC,AB5RCC,A8CZCC/34*1 ./ 

I 

JCIDDl 

END 

I 

JCIODl 

BLOCK  DATA 

I 

JCIDDl 

CDMMDN/TNFSC1/INA9F(8,2)  ,  INABR  (8 ,2), 1 NAB2C2) 

I 

JCIOOI 

C0MMUN/TNFSC2/NC3SD(2> , XC3SDC8 ,2) f YC35DC8,2) r 

1 

JCIODl 

* 

FDDSADC8,2  J,FSDSAD(8  ,2 1 , FTDSA D ( 8 ,2 1 , 

I 

JCIODl 

• 

F ABDC  C 1 2 1  , ABSFCCCP ,2  ),ABSRCC(8 ,21rABCZCC(2I  , 

I 

JCIDDl 

© 

FSSKCC(2I,TSSM!Rt8,2),SSSMIH(S,2I,SSSM!t(8,2I, 

I 

JCIDOI 

* 

FSAMCC42) ,TS AMIR (3,2 ), T5AMIZ(2)  ,S5AMIF(3,2) 

I 

JC I  CD 1 

C0MMCN/TNFSC3/NC3DDC2) t XC3DD (8 , 2 I f YC 3DD ( B ,2 I , 

I 

JCIOOI 

© 

NCCMD (2  > ,XCQMD(8,2I, YC0MD(8,2I , 

I 

JCIDOI 

e 

FCLWL ( ID , 2  I 

I 

JCIOOI 

CDMM0N/TNFSC4/NF DLY (21 ,XEDLY  <8 ,2) , YEDLY(B,2,2)  , 

I 

JCIOOI 

© 

JE  SC ( 8 , 3 , 2 ) , I WAUT (6,21 ,IFPLS(B,2), 

I 

JCIDOI 

« 

TCQPD(2) ,SFQPD(8,2I ,CT  IMF (B,2J 

I 

JCIOOI 

COMMON/TNF  SC  5 / NG  SF  0  ( 2  )  ,  X  G S  F  D  ( 8  , 2  I  ,  YGSF  D  {  8 , 2  )  , 

I 

JC  I0D1 

© 

NAAFDI2) , X AA  r  D  CO ,21 , YAAf DC8,7) , 

) 

JCIDOI 

© 

HAT*  D  (2)  ,  X  A»  I  0  (8,2)  ,  YAH  0(8,2  ) 

I 

JC  1001 

DATA 

1NAUF  ,|NA|ifc,)-NA|l//34*0/ 

I 

JCIOOI 

DATA 

NC3S0/2*U/ 

I 

JCIDOI 

DATA 

XC3SD ,YC 3  SO, FDD  SAD ,F  SDSAD.f  TDSA0/8D«0./ 

I 

JCIOOI 

DATA 

I  AB»)CC,AbST  CC  ,AfiSRlC,AI;CKC/3G*D./ 

I 

JCIOOI 

DATA 

FSSMCC, TSSM I R, SSSM I M,SSSM 11/50*0./ 

I 

JCIOOI 

DATA 

FSAMCC,TSAMIR,T$AM1/,SSAHIF/1G©0./ 

I 

JCIDOI 

DATA 

NC3DD, NCOMD  ,NF  DL  Y , Jf  SC , I  WAUT ,  IFPLS/86°D/ 

I 

JCIOOI 

DATA 

XC3DD  ,YC3DD  ,XCCMD,YCDMO ,XEDLY ,YEDLY/11 2*0 -/ 

I 

JCIOOI 

DATA 

FCLWL  ,TEQPD,$EQPD,CTIHE/54©D./ 

I 

JCIDOI 

DATA 

NGSFD  ,NAAFD  ,NAFF  0/6*0/ 

I 

JCIDOI 

DATA 

XG5FD  ,YG5FD  ,  X  A AF D , Y AA FD ,X AF FD  ,YAF  FD/96  *D •/ 

r 

JCIODl 

END 

i 

JCIDDl 
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